Update and rename Source URL - UltimateKEYS CE (MSKLC).txt to Source URL - UltimateKE...

[UltimateKEYS.git] / autohotkey-v2.0 / UltimateKEYS (for AutoHotkey v2.0).ahk

diff --git a/autohotkey-v2.0/UltimateKEYS (for AutoHotkey v2.0).ahk b/autohotkey-v2.0/UltimateKEYS (for AutoHotkey v2.0).ahk
index 7dcafe221acbd75824ce72bd72cdc0c04e54b94b..52798be21950b523b5c115164955901144da043d 100644 (file)
--- a/autohotkey-v2.0/UltimateKEYS (for AutoHotkey v2.0).ahk
+++ b/autohotkey-v2.0/UltimateKEYS (for AutoHotkey v2.0).ahk
@@ -1,4 +1,4 @@
-; UltimateKEYS (for AutoHotkey v2.0).ahk - 2022-05-23
+; UltimateKEYS (for AutoHotkey v2.0).ahk - 2022-12-06

 
 ; Website :  www.ultimatekeys.info (pieter-degroote.github.io/UltimateKEYS/)
 
 
 ; Website :  www.ultimatekeys.info (pieter-degroote.github.io/UltimateKEYS/)
 


@@ -20,7 +20,94 @@ KeyHistory 0      ; disables the key history (for privacy and security)
 
 SendMode "Input"  ; optimizes for faster and more reliable input
 
 
 SendMode "Input"  ; optimizes for faster and more reliable input
 

-global dkEndKeys := "{bs}{del}{esc}{home}{end}"  ; ends dead key input on specific keys
+global gEndKeys := "{bs}{del}{esc}{home}{end}"  ; ends dead key input on specific keys
+
+
+; Compose :  Acute Accent (')
+
+global cmpAcuteAccent := Map()
+cmpAcuteAccent["a"] := "{u+00e1}"  ; (á) a with acute
+cmpAcuteAccent["A"] := "{u+00c1}"  ; (Á) A with acute
+cmpAcuteAccent["c"] := "{u+0107}"  ; (ć) c with acute
+cmpAcuteAccent["C"] := "{u+0106}"  ; (Ć) C with acute
+cmpAcuteAccent["e"] := "{u+00e9}"  ; (é) e with acute
+cmpAcuteAccent["E"] := "{u+00c9}"  ; (É) E with acute
+cmpAcuteAccent["g"] := "{u+01f5}"  ; (ǵ) g with acute
+cmpAcuteAccent["G"] := "{u+01f4}"  ; (Ǵ) G with acute
+cmpAcuteAccent["i"] := "{u+00ed}"  ; (í) i with acute
+cmpAcuteAccent["I"] := "{u+00cd}"  ; (Í) I with acute
+cmpAcuteAccent["k"] := "{u+1e31}"  ; (ḱ) k with acute
+cmpAcuteAccent["K"] := "{u+1e30}"  ; (Ḱ) K with acute
+cmpAcuteAccent["l"] := "{u+013a}"  ; (ĺ) l with acute
+cmpAcuteAccent["L"] := "{u+0139}"  ; (Ĺ) L with acute
+cmpAcuteAccent["m"] := "{u+1e3f}"  ; (ḿ) m with acute
+cmpAcuteAccent["M"] := "{u+1e3e}"  ; (Ḿ) M with acute
+cmpAcuteAccent["n"] := "{u+0144}"  ; (ń) n with acute
+cmpAcuteAccent["N"] := "{u+0143}"  ; (Ń) N with acute
+cmpAcuteAccent["o"] := "{u+00f3}"  ; (ó) o with acute
+cmpAcuteAccent["O"] := "{u+00d3}"  ; (Ó) O with acute
+cmpAcuteAccent["p"] := "{u+1e55}"  ; (ṕ) p with acute
+cmpAcuteAccent["P"] := "{u+1e54}"  ; (Ṕ) P with acute
+cmpAcuteAccent["r"] := "{u+0155}"  ; (ŕ) r with acute
+cmpAcuteAccent["R"] := "{u+0154}"  ; (Ŕ) R with acute
+cmpAcuteAccent["s"] := "{u+015b}"  ; (ś) s with acute
+cmpAcuteAccent["S"] := "{u+015a}"  ; (Ś) S with acute
+cmpAcuteAccent["u"] := "{u+00fa}"  ; (ú) u with acute
+cmpAcuteAccent["U"] := "{u+00da}"  ; (Ú) U with acute
+cmpAcuteAccent["w"] := "{u+1e83}"  ; (ẃ) w with acute
+cmpAcuteAccent["W"] := "{u+1e82}"  ; (Ẃ) W with acute
+cmpAcuteAccent["y"] := "{u+00fd}"  ; (ý) y with acute
+cmpAcuteAccent["Y"] := "{u+00dd}"  ; (Ý) Y with acute
+cmpAcuteAccent["z"] := "{u+017a}"  ; (ź) z with acute
+cmpAcuteAccent["Z"] := "{u+0179}"  ; (Ź) Z with acute
+cmpAcuteAccent[" "] := "{u+00b4}"  ; (´) acute accent
+
+
+; Compose :  Grave Accent (`)
+
+global cmpGraveAccent := Map()
+cmpGraveAccent["a"] := "{u+00e0}"  ; (à) a with grave
+cmpGraveAccent["A"] := "{u+00c0}"  ; (À) A with grave
+cmpGraveAccent["e"] := "{u+00e8}"  ; (è) e with grave
+cmpGraveAccent["E"] := "{u+00c8}"  ; (È) E with grave
+cmpGraveAccent["i"] := "{u+00ec}"  ; (ì) i with grave
+cmpGraveAccent["I"] := "{u+00cc}"  ; (Ì) I with grave
+cmpGraveAccent["n"] := "{u+01f9}"  ; (ǹ) n with grave
+cmpGraveAccent["N"] := "{u+01f8}"  ; (Ǹ) N with grave
+cmpGraveAccent["o"] := "{u+00f2}"  ; (ò) o with grave
+cmpGraveAccent["O"] := "{u+00d2}"  ; (Ò) O with grave
+cmpGraveAccent["u"] := "{u+00f9}"  ; (ù) u with grave
+cmpGraveAccent["U"] := "{u+00d9}"  ; (Ù) U with grave
+cmpGraveAccent["w"] := "{u+1e81}"  ; (ẁ) w with grave
+cmpGraveAccent["W"] := "{u+1e80}"  ; (Ẁ) W with grave
+cmpGraveAccent["y"] := "{u+1ef3}"  ; (ỳ) y with grave
+cmpGraveAccent["Y"] := "{u+1ef2}"  ; (Ỳ) Y with grave
+cmpGraveAccent[" "] := "{u+02cb}"  ; (ˋ) grave accent (modifier)
+
+
+; Compose :  Diaeresis (")
+
+global cmpDiaeresis := Map()
+cmpDiaeresis["a"] := "{u+00e4}"  ; (ä) a with diaeresis
+cmpDiaeresis["A"] := "{u+00c4}"  ; (Ä) A with diaeresis
+cmpDiaeresis["e"] := "{u+00eb}"  ; (ë) e with diaeresis
+cmpDiaeresis["E"] := "{u+00cb}"  ; (Ë) E with diaeresis
+cmpDiaeresis["h"] := "{u+1e27}"  ; (ḧ) h with diaeresis
+cmpDiaeresis["H"] := "{u+1e26}"  ; (Ḧ) H with diaeresis
+cmpDiaeresis["i"] := "{u+00ef}"  ; (ï) i with diaeresis
+cmpDiaeresis["I"] := "{u+00cf}"  ; (Ï) I with diaeresis
+cmpDiaeresis["o"] := "{u+00f6}"  ; (ö) o with diaeresis
+cmpDiaeresis["O"] := "{u+00d6}"  ; (Ö) O with diaeresis
+cmpDiaeresis["t"] := "{u+1e97}"  ; (ẗ) t with diaeresis
+cmpDiaeresis["u"] := "{u+00fc}"  ; (ü) u with diaeresis
+cmpDiaeresis["U"] := "{u+00dc}"  ; (Ü) U with diaeresis
+cmpDiaeresis["w"] := "{u+1e85}"  ; (ẅ) w with diaeresis
+cmpDiaeresis["W"] := "{u+1e84}"  ; (Ẅ) W with diaeresis
+cmpDiaeresis["x"] := "{u+1e8d}"  ; (ẍ) x with diaeresis
+cmpDiaeresis["X"] := "{u+1e8c}"  ; (Ẍ) X with diaeresis
+cmpDiaeresis["y"] := "{u+00ff}"  ; (ÿ) y with diaeresis
+cmpDiaeresis["Y"] := "{u+0178}"  ; (Ÿ) Y with diaeresis
+cmpDiaeresis[" "] := "{u+00a8}"  ; (¨) diaeresis

 
 
 ; Compose :  Circumflex Accent (c)
 
 
 ; Compose :  Circumflex Accent (c)


@@ -55,6 +142,69 @@ cmpCircumflex["Z"] := "{u+1e90}"  ; (Ẑ) Z with circumflex
 cmpCircumflex[" "] := "{u+02c6}"  ; (ˆ) circumflex accent (modifier)
 
 
 cmpCircumflex[" "] := "{u+02c6}"  ; (ˆ) circumflex accent (modifier)
 
 

+; Compose :  Tilde (~)
+
+global cmpTilde := Map()
+cmpTilde["a"] := "{u+00e3}"  ; (ã) a with tilde
+cmpTilde["A"] := "{u+00c3}"  ; (Ã) A with tilde
+cmpTilde["e"] := "{u+1ebd}"  ; (ẽ) e with tilde
+cmpTilde["E"] := "{u+1ebc}"  ; (Ẽ) E with tilde
+cmpTilde["i"] := "{u+0129}"  ; (ĩ) i with tilde
+cmpTilde["I"] := "{u+0128}"  ; (Ĩ) I with tilde
+cmpTilde["l"] := "{u+026b}"  ; (ɫ) l with middle tilde
+cmpTilde["L"] := "{u+2c62}"  ; (Ɫ) L with middle tilde
+cmpTilde["n"] := "{u+00f1}"  ; (ñ) n with tilde
+cmpTilde["N"] := "{u+00d1}"  ; (Ñ) N with tilde
+cmpTilde["o"] := "{u+00f5}"  ; (õ) o with tilde
+cmpTilde["O"] := "{u+00d5}"  ; (Õ) O with tilde
+cmpTilde["u"] := "{u+0169}"  ; (ũ) u with tilde
+cmpTilde["U"] := "{u+0168}"  ; (Ũ) U with tilde
+cmpTilde["v"] := "{u+1e7d}"  ; (ṽ) v with tilde
+cmpTilde["V"] := "{u+1e7c}"  ; (Ṽ) V with tilde
+cmpTilde["y"] := "{u+1ef9}"  ; (ỹ) y with tilde
+cmpTilde["Y"] := "{u+1ef8}"  ; (Ỹ) Y with tilde
+cmpTilde[" "] := "{u+02dc}"  ; (˜) small tilde
+
+
+; Compose :  Cedilla and Ogonek (,)
+
+global cmpCedillaOgonek := Map()
+cmpCedillaOgonek["a"] := "{u+0105}"  ; (ą) a with ogonek
+cmpCedillaOgonek["A"] := "{u+0104}"  ; (Ą) A with ogonek
+cmpCedillaOgonek["c"] := "{u+00e7}"  ; (ç) c with cedilla
+cmpCedillaOgonek["C"] := "{u+00c7}"  ; (Ç) C with cedilla
+cmpCedillaOgonek["d"] := "{u+1e11}"  ; (ḑ) d with cedilla
+cmpCedillaOgonek["D"] := "{u+1e10}"  ; (Ḑ) D with cedilla
+cmpCedillaOgonek["e"] := "{u+0119}"  ; (ę) e with ogonek
+cmpCedillaOgonek["E"] := "{u+0118}"  ; (Ę) E with ogonek
+cmpCedillaOgonek["f"] := "{u+0229}"  ; (ȩ) e with cedilla
+cmpCedillaOgonek["F"] := "{u+0228}"  ; (Ȩ) E with cedilla
+cmpCedillaOgonek["g"] := "{u+0123}"  ; (ģ) g with cedilla
+cmpCedillaOgonek["G"] := "{u+0122}"  ; (Ģ) G with cedilla
+cmpCedillaOgonek["h"] := "{u+1e29}"  ; (ḩ) h with cedilla
+cmpCedillaOgonek["H"] := "{u+1e28}"  ; (Ḩ) H with cedilla
+cmpCedillaOgonek["i"] := "{u+012f}"  ; (į) i with ogonek
+cmpCedillaOgonek["I"] := "{u+012e}"  ; (Į) I with ogonek
+cmpCedillaOgonek["k"] := "{u+0137}"  ; (ķ) k with cedilla
+cmpCedillaOgonek["K"] := "{u+0136}"  ; (Ķ) K with cedilla
+cmpCedillaOgonek["l"] := "{u+013c}"  ; (ļ) l with cedilla
+cmpCedillaOgonek["L"] := "{u+013b}"  ; (Ļ) L with cedilla
+cmpCedillaOgonek["n"] := "{u+0146}"  ; (ņ) n with cedilla
+cmpCedillaOgonek["N"] := "{u+0145}"  ; (Ņ) N with cedilla
+cmpCedillaOgonek["o"] := "{u+01eb}"  ; (ǫ) o with ogonek
+cmpCedillaOgonek["O"] := "{u+01ea}"  ; (Ǫ) O with ogonek
+cmpCedillaOgonek["r"] := "{u+0157}"  ; (ŗ) r with cedilla
+cmpCedillaOgonek["R"] := "{u+0156}"  ; (Ŗ) R with cedilla
+cmpCedillaOgonek["s"] := "{u+015f}"  ; (ş) s with cedilla
+cmpCedillaOgonek["S"] := "{u+015e}"  ; (Ş) S with cedilla
+cmpCedillaOgonek["t"] := "{u+0163}"  ; (ţ) t with cedilla
+cmpCedillaOgonek["T"] := "{u+0162}"  ; (Ţ) T with cedilla
+cmpCedillaOgonek["u"] := "{u+0173}"  ; (ų) u with ogonek
+cmpCedillaOgonek["U"] := "{u+0172}"  ; (Ų) U with ogonek
+cmpCedillaOgonek["."] := "{u+02db}"  ; (˛) ogonek
+cmpCedillaOgonek[" "] := "{u+00b8}"  ; (¸) cedilla
+
+

 ; Compose :  Caron (v)
 
 global cmpCaron := Map()
 ; Compose :  Caron (v)
 
 global cmpCaron := Map()


@@ -89,8 +239,6 @@ cmpCaron["t"] := "{u+0165}"  ; (ť) t with caron
 cmpCaron["T"] := "{u+0164}"  ; (Ť) T with caron
 cmpCaron["u"] := "{u+01d4}"  ; (ǔ) u with caron
 cmpCaron["U"] := "{u+01d3}"  ; (Ǔ) U with caron
 cmpCaron["T"] := "{u+0164}"  ; (Ť) T with caron
 cmpCaron["u"] := "{u+01d4}"  ; (ǔ) u with caron
 cmpCaron["U"] := "{u+01d3}"  ; (Ǔ) U with caron

-cmpCaron["v"] := "{u+01da}"  ; (ǚ) u with diaeresis and caron
-cmpCaron["V"] := "{u+01d9}"  ; (Ǚ) U with diaeresis and caron

 cmpCaron["z"] := "{u+017e}"  ; (ž) z with caron
 cmpCaron["Z"] := "{u+017d}"  ; (Ž) Z with caron
 cmpCaron["3"] := "{u+01ef}"  ; (ǯ) small letter ezh with caron
 cmpCaron["z"] := "{u+017e}"  ; (ž) z with caron
 cmpCaron["Z"] := "{u+017d}"  ; (Ž) Z with caron
 cmpCaron["3"] := "{u+01ef}"  ; (ǯ) small letter ezh with caron


@@ -130,6 +278,7 @@ cmpDotAbove["o"] := "{u+022f}"  ; (ȯ) o with dot above
 cmpDotAbove["O"] := "{u+022e}"  ; (Ȯ) O with dot above
 cmpDotAbove["p"] := "{u+1e57}"  ; (ṗ) p with dot above
 cmpDotAbove["P"] := "{u+1e56}"  ; (Ṗ) P with dot above
 cmpDotAbove["O"] := "{u+022e}"  ; (Ȯ) O with dot above
 cmpDotAbove["p"] := "{u+1e57}"  ; (ṗ) p with dot above
 cmpDotAbove["P"] := "{u+1e56}"  ; (Ṗ) P with dot above

+cmpDotAbove["q"] := "{u+1e9b}"  ; (ẛ) long s with dot above

 cmpDotAbove["r"] := "{u+1e59}"  ; (ṙ) r with dot above
 cmpDotAbove["R"] := "{u+1e58}"  ; (Ṙ) R with dot above
 cmpDotAbove["s"] := "{u+1e61}"  ; (ṡ) s with dot above
 cmpDotAbove["r"] := "{u+1e59}"  ; (ṙ) r with dot above
 cmpDotAbove["R"] := "{u+1e58}"  ; (Ṙ) R with dot above
 cmpDotAbove["s"] := "{u+1e61}"  ; (ṡ) s with dot above


@@ -159,7 +308,7 @@ cmpRingAbove["w"] := "{u+1e98}"  ; (ẘ) w with ring above
 cmpRingAbove["y"] := "{u+1e99}"  ; (ẙ) y with ring above
 
 
 cmpRingAbove["y"] := "{u+1e99}"  ; (ẙ) y with ring above
 
 

-; Compose :  Macron/Stroke (-)
+; Compose :  Macron and Stroke (-)

 
 global cmpMacronStroke := Map()
 cmpMacronStroke["a"] := "{u+0101}"  ; (ā) a with macron
 
 global cmpMacronStroke := Map()
 cmpMacronStroke["a"] := "{u+0101}"  ; (ā) a with macron


@@ -184,14 +333,14 @@ cmpMacronStroke["o"] := "{u+014d}"  ; (ō) o with macron
 cmpMacronStroke["O"] := "{u+014c}"  ; (Ō) O with macron
 cmpMacronStroke["p"] := "{u+1d7d}"  ; (ᵽ) p with stroke
 cmpMacronStroke["P"] := "{u+2c63}"  ; (Ᵽ) P with stroke
 cmpMacronStroke["O"] := "{u+014c}"  ; (Ō) O with macron
 cmpMacronStroke["p"] := "{u+1d7d}"  ; (ᵽ) p with stroke
 cmpMacronStroke["P"] := "{u+2c63}"  ; (Ᵽ) P with stroke

+cmpMacronStroke["q"] := "{u+01ed}"  ; (ǭ) o with ogonek and macron
+cmpMacronStroke["Q"] := "{u+01ec}"  ; (Ǭ) O with ogonek and macron

 cmpMacronStroke["r"] := "{u+024d}"  ; (ɍ) r with stroke
 cmpMacronStroke["R"] := "{u+024c}"  ; (Ɍ) R with stroke
 cmpMacronStroke["t"] := "{u+0167}"  ; (ŧ) t with stroke
 cmpMacronStroke["T"] := "{u+0166}"  ; (Ŧ) T with stroke
 cmpMacronStroke["u"] := "{u+016b}"  ; (ū) u with macron
 cmpMacronStroke["U"] := "{u+016a}"  ; (Ū) U with macron
 cmpMacronStroke["r"] := "{u+024d}"  ; (ɍ) r with stroke
 cmpMacronStroke["R"] := "{u+024c}"  ; (Ɍ) R with stroke
 cmpMacronStroke["t"] := "{u+0167}"  ; (ŧ) t with stroke
 cmpMacronStroke["T"] := "{u+0166}"  ; (Ŧ) T with stroke
 cmpMacronStroke["u"] := "{u+016b}"  ; (ū) u with macron
 cmpMacronStroke["U"] := "{u+016a}"  ; (Ū) U with macron

-cmpMacronStroke["v"] := "{u+01d6}"  ; (ǖ) u with diaeresis and macron
-cmpMacronStroke["V"] := "{u+01d5}"  ; (Ǖ) U with diaeresis and macron

 cmpMacronStroke["y"] := "{u+0233}"  ; (ȳ) y with macron
 cmpMacronStroke["Y"] := "{u+0232}"  ; (Ȳ) Y with macron
 cmpMacronStroke["z"] := "{u+01b6}"  ; (ƶ) z with stroke
 cmpMacronStroke["y"] := "{u+0233}"  ; (ȳ) y with macron
 cmpMacronStroke["Y"] := "{u+0232}"  ; (Ȳ) Y with macron
 cmpMacronStroke["z"] := "{u+01b6}"  ; (ƶ) z with stroke


@@ -199,27 +348,24 @@ cmpMacronStroke["Z"] := "{u+01b5}"  ; (Ƶ) Z with stroke
 cmpMacronStroke[" "] := "{u+00af}"  ; (¯) macron
 
 
 cmpMacronStroke[" "] := "{u+00af}"  ; (¯) macron
 
 

-; Compose :  Macron/Stroke (Additional) (_)
+; Compose :  Macron and Stroke (additional) (_)

 
 global cmpMacronStrokeAdd := Map()
 
 global cmpMacronStrokeAdd := Map()

-cmpMacronStrokeAdd["a"] := "{u+01e3}"  ; (ǣ) ae with macron
-cmpMacronStrokeAdd["A"] := "{u+01e2}"  ; (Ǣ) AE with macron

 cmpMacronStrokeAdd["g"] := "{u+1e21}"  ; (ḡ) g with macron
 cmpMacronStrokeAdd["G"] := "{u+1e20}"  ; (Ḡ) G with macron
 cmpMacronStrokeAdd["i"] := "{u+0268}"  ; (ɨ) i with stroke
 cmpMacronStrokeAdd["I"] := "{u+0197}"  ; (Ɨ) I with stroke
 cmpMacronStrokeAdd["l"] := "{u+019a}"  ; (ƚ) l with bar
 cmpMacronStrokeAdd["L"] := "{u+023d}"  ; (Ƚ) L with bar
 cmpMacronStrokeAdd["g"] := "{u+1e21}"  ; (ḡ) g with macron
 cmpMacronStrokeAdd["G"] := "{u+1e20}"  ; (Ḡ) G with macron
 cmpMacronStrokeAdd["i"] := "{u+0268}"  ; (ɨ) i with stroke
 cmpMacronStrokeAdd["I"] := "{u+0197}"  ; (Ɨ) I with stroke
 cmpMacronStrokeAdd["l"] := "{u+019a}"  ; (ƚ) l with bar
 cmpMacronStrokeAdd["L"] := "{u+023d}"  ; (Ƚ) L with bar

-cmpMacronStrokeAdd["o"] := "{u+01ed}"  ; (ǭ) o with ogonek and macron
-cmpMacronStrokeAdd["O"] := "{u+01ec}"  ; (Ǭ) O with ogonek and macron
+cmpMacronStrokeAdd["o"] := "{u+0275}"  ; (ɵ) barred o
+cmpMacronStrokeAdd["O"] := "{u+019f}"  ; (Ɵ) O with middle tilde

 cmpMacronStrokeAdd["u"] := "{u+0289}"  ; (ʉ) u with bar
 cmpMacronStrokeAdd["U"] := "{u+0244}"  ; (Ʉ) U with bar
 cmpMacronStrokeAdd["y"] := "{u+024f}"  ; (ɏ) y with stroke
 cmpMacronStrokeAdd["Y"] := "{u+024e}"  ; (Ɏ) Y with stroke
 cmpMacronStrokeAdd["u"] := "{u+0289}"  ; (ʉ) u with bar
 cmpMacronStrokeAdd["U"] := "{u+0244}"  ; (Ʉ) U with bar
 cmpMacronStrokeAdd["y"] := "{u+024f}"  ; (ɏ) y with stroke
 cmpMacronStrokeAdd["Y"] := "{u+024e}"  ; (Ɏ) Y with stroke

-cmpMacronStrokeAdd[" "] := "{u+00af}"  ; (¯) macron

 
 
 
 

-; Compose :  Stroke (/)
+; Compose :  Oblique/Diagonal Stroke (/)

 
 global cmpStroke := Map()
 cmpStroke["a"] := "{u+2c65}"  ; (ⱥ) a with stroke
 
 global cmpStroke := Map()
 cmpStroke["a"] := "{u+2c65}"  ; (ⱥ) a with stroke


@@ -228,15 +374,17 @@ cmpStroke["c"] := "{u+023c}"  ; (ȼ) c with stroke
 cmpStroke["C"] := "{u+023b}"  ; (Ȼ) C with stroke
 cmpStroke["e"] := "{u+0247}"  ; (ɇ) e with stroke
 cmpStroke["E"] := "{u+0246}"  ; (Ɇ) E with stroke
 cmpStroke["C"] := "{u+023b}"  ; (Ȼ) C with stroke
 cmpStroke["e"] := "{u+0247}"  ; (ɇ) e with stroke
 cmpStroke["E"] := "{u+0246}"  ; (Ɇ) E with stroke

-cmpStroke["f"] := "{u+1e9c}"  ; (ẜ) long s with diagonal stroke

 cmpStroke["g"] := "{u+a7a1}"  ; (ꞡ) g with oblique stroke
 cmpStroke["G"] := "{u+a7a0}"  ; (Ꞡ) G with oblique stroke
 cmpStroke["k"] := "{u+a7a3}"  ; (ꞣ) k with oblique stroke
 cmpStroke["K"] := "{u+a7a2}"  ; (Ꞣ) K with oblique stroke
 cmpStroke["g"] := "{u+a7a1}"  ; (ꞡ) g with oblique stroke
 cmpStroke["G"] := "{u+a7a0}"  ; (Ꞡ) G with oblique stroke
 cmpStroke["k"] := "{u+a7a3}"  ; (ꞣ) k with oblique stroke
 cmpStroke["K"] := "{u+a7a2}"  ; (Ꞣ) K with oblique stroke

+cmpStroke["l"] := "{u+0142}"  ; (ł) l with stroke
+cmpStroke["L"] := "{u+0141}"  ; (Ł) L with stroke

 cmpStroke["n"] := "{u+a7a5}"  ; (ꞥ) n with oblique stroke
 cmpStroke["N"] := "{u+a7a4}"  ; (Ꞥ) N with oblique stroke
 cmpStroke["o"] := "{u+00f8}"  ; (ø) o with stroke
 cmpStroke["O"] := "{u+00d8}"  ; (Ø) O with stroke
 cmpStroke["n"] := "{u+a7a5}"  ; (ꞥ) n with oblique stroke
 cmpStroke["N"] := "{u+a7a4}"  ; (Ꞥ) N with oblique stroke
 cmpStroke["o"] := "{u+00f8}"  ; (ø) o with stroke
 cmpStroke["O"] := "{u+00d8}"  ; (Ø) O with stroke

+cmpStroke["q"] := "{u+1e9c}"  ; (ẜ) long s with diagonal stroke

 cmpStroke["r"] := "{u+a7a7}"  ; (ꞧ) r with oblique stroke
 cmpStroke["R"] := "{u+a7a6}"  ; (Ꞧ) R with oblique stroke
 cmpStroke["s"] := "{u+a7a9}"  ; (ꞩ) s with oblique stroke
 cmpStroke["r"] := "{u+a7a7}"  ; (ꞧ) r with oblique stroke
 cmpStroke["R"] := "{u+a7a6}"  ; (Ꞧ) R with oblique stroke
 cmpStroke["s"] := "{u+a7a9}"  ; (ꞩ) s with oblique stroke


@@ -245,46 +393,7 @@ cmpStroke["t"] := "{u+2c66}"  ; (ⱦ) t with stroke
 cmpStroke["T"] := "{u+023e}"  ; (Ⱦ) T with stroke
 
 
 cmpStroke["T"] := "{u+023e}"  ; (Ⱦ) T with stroke
 
 

-; Compose :  Cedilla/Ogonek (,)
-
-global cmpCedillaOgonek := Map()
-cmpCedillaOgonek["a"] := "{u+0105}"  ; (ą) a with ogonek
-cmpCedillaOgonek["A"] := "{u+0104}"  ; (Ą) A with ogonek
-cmpCedillaOgonek["c"] := "{u+00e7}"  ; (ç) c with cedilla
-cmpCedillaOgonek["C"] := "{u+00c7}"  ; (Ç) C with cedilla
-cmpCedillaOgonek["d"] := "{u+1e11}"  ; (ḑ) d with cedilla
-cmpCedillaOgonek["D"] := "{u+1e10}"  ; (Ḑ) D with cedilla
-cmpCedillaOgonek["e"] := "{u+0119}"  ; (ę) e with ogonek
-cmpCedillaOgonek["E"] := "{u+0118}"  ; (Ę) E with ogonek
-cmpCedillaOgonek["f"] := "{u+0229}"  ; (ȩ) e with cedilla
-cmpCedillaOgonek["F"] := "{u+0228}"  ; (Ȩ) E with cedilla
-cmpCedillaOgonek["g"] := "{u+0123}"  ; (ģ) g with cedilla
-cmpCedillaOgonek["G"] := "{u+0122}"  ; (Ģ) G with cedilla
-cmpCedillaOgonek["h"] := "{u+1e29}"  ; (ḩ) h with cedilla
-cmpCedillaOgonek["H"] := "{u+1e28}"  ; (Ḩ) H with cedilla
-cmpCedillaOgonek["i"] := "{u+012f}"  ; (į) i with ogonek
-cmpCedillaOgonek["I"] := "{u+012e}"  ; (Į) I with ogonek
-cmpCedillaOgonek["k"] := "{u+0137}"  ; (ķ) k with cedilla
-cmpCedillaOgonek["K"] := "{u+0136}"  ; (Ķ) K with cedilla
-cmpCedillaOgonek["l"] := "{u+013c}"  ; (ļ) l with cedilla
-cmpCedillaOgonek["L"] := "{u+013b}"  ; (Ļ) L with cedilla
-cmpCedillaOgonek["n"] := "{u+0146}"  ; (ņ) n with cedilla
-cmpCedillaOgonek["N"] := "{u+0145}"  ; (Ņ) N with cedilla
-cmpCedillaOgonek["o"] := "{u+01eb}"  ; (ǫ) o with ogonek
-cmpCedillaOgonek["O"] := "{u+01ea}"  ; (Ǫ) O with ogonek
-cmpCedillaOgonek["r"] := "{u+0157}"  ; (ŗ) r with cedilla
-cmpCedillaOgonek["R"] := "{u+0156}"  ; (Ŗ) R with cedilla
-cmpCedillaOgonek["s"] := "{u+015f}"  ; (ş) s with cedilla
-cmpCedillaOgonek["S"] := "{u+015e}"  ; (Ş) S with cedilla
-cmpCedillaOgonek["t"] := "{u+0163}"  ; (ţ) t with cedilla
-cmpCedillaOgonek["T"] := "{u+0162}"  ; (Ţ) T with cedilla
-cmpCedillaOgonek["u"] := "{u+0173}"  ; (ų) u with ogonek
-cmpCedillaOgonek["U"] := "{u+0172}"  ; (Ų) U with ogonek
-cmpCedillaOgonek["."] := "{u+02db}"  ; (˛) ogonek
-cmpCedillaOgonek[" "] := "{u+00b8}"  ; (¸) cedilla
-
-
-; Compose :  Breve/Special (b)
+; Compose :  Breve and Special Letters (b)

 
 global cmpBreveSpecial := Map()
 cmpBreveSpecial["a"] := "{u+0103}"  ; (ă) a with breve
 
 global cmpBreveSpecial := Map()
 cmpBreveSpecial["a"] := "{u+0103}"  ; (ă) a with breve


@@ -299,8 +408,6 @@ cmpBreveSpecial["g"] := "{u+011f}"  ; (ğ) g with breve
 cmpBreveSpecial["G"] := "{u+011e}"  ; (Ğ) G with breve
 cmpBreveSpecial["i"] := "{u+012d}"  ; (ĭ) i with breve
 cmpBreveSpecial["I"] := "{u+012c}"  ; (Ĭ) I with breve
 cmpBreveSpecial["G"] := "{u+011e}"  ; (Ğ) G with breve
 cmpBreveSpecial["i"] := "{u+012d}"  ; (ĭ) i with breve
 cmpBreveSpecial["I"] := "{u+012c}"  ; (Ĭ) I with breve

-cmpBreveSpecial["n"] := "{u+014b}"  ; (ŋ) small letter eng(ma)
-cmpBreveSpecial["N"] := "{u+014a}"  ; (Ŋ) capital letter eng(ma)

 cmpBreveSpecial["o"] := "{u+014f}"  ; (ŏ) o with breve
 cmpBreveSpecial["O"] := "{u+014e}"  ; (Ŏ) O with breve
 cmpBreveSpecial["s"] := "{u+0219}"  ; (ș) s with comma below (Romanian)
 cmpBreveSpecial["o"] := "{u+014f}"  ; (ŏ) o with breve
 cmpBreveSpecial["O"] := "{u+014e}"  ; (Ŏ) O with breve
 cmpBreveSpecial["s"] := "{u+0219}"  ; (ș) s with comma below (Romanian)


@@ -318,134 +425,17 @@ cmpBreveSpecial["#"] := "{u+01b7}"  ; (Ʒ) capital letter ezh
 cmpBreveSpecial[" "] := "{u+02d8}"  ; (˘) breve
 
 
 cmpBreveSpecial[" "] := "{u+02d8}"  ; (˘) breve
 
 

-; Compose :  Inverted Breve (B)
-
-global cmpInvertedBreve := Map()
-cmpInvertedBreve["a"] := "{u+0203}"  ; (ȃ) a with inverted breve
-cmpInvertedBreve["A"] := "{u+0202}"  ; (Ȃ) A with inverted breve
-cmpInvertedBreve["e"] := "{u+0207}"  ; (ȇ) e with inverted breve
-cmpInvertedBreve["E"] := "{u+0206}"  ; (Ȇ) E with inverted breve
-cmpInvertedBreve["i"] := "{u+020b}"  ; (ȋ) i with inverted breve
-cmpInvertedBreve["I"] := "{u+020a}"  ; (Ȋ) I with inverted breve
-cmpInvertedBreve["o"] := "{u+020f}"  ; (ȏ) o with inverted breve
-cmpInvertedBreve["O"] := "{u+020e}"  ; (Ȏ) O with inverted breve
-cmpInvertedBreve["r"] := "{u+0213}"  ; (ȓ) r with inverted breve
-cmpInvertedBreve["R"] := "{u+0212}"  ; (Ȓ) R with inverted breve
-cmpInvertedBreve["u"] := "{u+0217}"  ; (ȗ) u with inverted breve
-cmpInvertedBreve["U"] := "{u+0216}"  ; (Ȗ) U with inverted breve
-
-
-; Compose :  Acute Accent (')
-
-global cmpAcuteAccent := Map()
-cmpAcuteAccent["a"] := "{u+00e1}"  ; (á) a with acute
-cmpAcuteAccent["A"] := "{u+00c1}"  ; (Á) A with acute
-cmpAcuteAccent["c"] := "{u+0107}"  ; (ć) c with acute
-cmpAcuteAccent["C"] := "{u+0106}"  ; (Ć) C with acute
-cmpAcuteAccent["e"] := "{u+00e9}"  ; (é) e with acute
-cmpAcuteAccent["E"] := "{u+00c9}"  ; (É) E with acute
-cmpAcuteAccent["g"] := "{u+01f5}"  ; (ǵ) g with acute
-cmpAcuteAccent["G"] := "{u+01f4}"  ; (Ǵ) G with acute
-cmpAcuteAccent["i"] := "{u+00ed}"  ; (í) i with acute
-cmpAcuteAccent["I"] := "{u+00cd}"  ; (Í) I with acute
-cmpAcuteAccent["k"] := "{u+1e31}"  ; (ḱ) k with acute
-cmpAcuteAccent["K"] := "{u+1e30}"  ; (Ḱ) K with acute
-cmpAcuteAccent["l"] := "{u+013a}"  ; (ĺ) l with acute
-cmpAcuteAccent["L"] := "{u+0139}"  ; (Ĺ) L with acute
-cmpAcuteAccent["m"] := "{u+1e3f}"  ; (ḿ) m with acute
-cmpAcuteAccent["M"] := "{u+1e3e}"  ; (Ḿ) M with acute
-cmpAcuteAccent["n"] := "{u+0144}"  ; (ń) n with acute
-cmpAcuteAccent["N"] := "{u+0143}"  ; (Ń) N with acute
-cmpAcuteAccent["o"] := "{u+00f3}"  ; (ó) o with acute
-cmpAcuteAccent["O"] := "{u+00d3}"  ; (Ó) O with acute
-cmpAcuteAccent["p"] := "{u+1e55}"  ; (ṕ) p with acute
-cmpAcuteAccent["P"] := "{u+1e54}"  ; (Ṕ) P with acute
-cmpAcuteAccent["r"] := "{u+0155}"  ; (ŕ) r with acute
-cmpAcuteAccent["R"] := "{u+0154}"  ; (Ŕ) R with acute
-cmpAcuteAccent["s"] := "{u+015b}"  ; (ś) s with acute
-cmpAcuteAccent["S"] := "{u+015a}"  ; (Ś) S with acute
-cmpAcuteAccent["u"] := "{u+00fa}"  ; (ú) u with acute
-cmpAcuteAccent["U"] := "{u+00da}"  ; (Ú) U with acute
-cmpAcuteAccent["v"] := "{u+01d8}"  ; (ǘ) u with diaeresis and acute
-cmpAcuteAccent["V"] := "{u+01d7}"  ; (Ǘ) U with diaeresis and acute
-cmpAcuteAccent["w"] := "{u+1e83}"  ; (ẃ) w with acute
-cmpAcuteAccent["W"] := "{u+1e82}"  ; (Ẃ) W with acute
-cmpAcuteAccent["y"] := "{u+00fd}"  ; (ý) y with acute
-cmpAcuteAccent["Y"] := "{u+00dd}"  ; (Ý) Y with acute
-cmpAcuteAccent["z"] := "{u+017a}"  ; (ź) z with acute
-cmpAcuteAccent["Z"] := "{u+0179}"  ; (Ź) Z with acute
-cmpAcuteAccent["b"] := "{u+01fb}"  ; (ǻ) a with ring above and acute
-cmpAcuteAccent["B"] := "{u+01fa}"  ; (Ǻ) A with ring above and acute
-cmpAcuteAccent["d"] := "{u+1e09}"  ; (ḉ) c with cedilla and acute
-cmpAcuteAccent["D"] := "{u+1e08}"  ; (Ḉ) C with cedilla and acute
-cmpAcuteAccent["f"] := "{u+01fd}"  ; (ǽ) ae with acute
-cmpAcuteAccent["F"] := "{u+01fc}"  ; (Ǽ) AE with acute
-cmpAcuteAccent["q"] := "{u+01ff}"  ; (ǿ) o with stroke and acute
-cmpAcuteAccent["Q"] := "{u+01fe}"  ; (Ǿ) O with stroke and acute
-
-
-; Compose :  Diaeresis (")
-
-global cmpDiaeresis := Map()
-cmpDiaeresis["a"] := "{u+00e4}"  ; (ä) a with diaeresis
-cmpDiaeresis["A"] := "{u+00c4}"  ; (Ä) A with diaeresis
-cmpDiaeresis["e"] := "{u+00eb}"  ; (ë) e with diaeresis
-cmpDiaeresis["E"] := "{u+00cb}"  ; (Ë) E with diaeresis
-cmpDiaeresis["h"] := "{u+1e27}"  ; (ḧ) h with diaeresis
-cmpDiaeresis["H"] := "{u+1e26}"  ; (Ḧ) H with diaeresis
-cmpDiaeresis["i"] := "{u+00ef}"  ; (ï) i with diaeresis
-cmpDiaeresis["I"] := "{u+00cf}"  ; (Ï) I with diaeresis
-cmpDiaeresis["o"] := "{u+00f6}"  ; (ö) o with diaeresis
-cmpDiaeresis["O"] := "{u+00d6}"  ; (Ö) O with diaeresis
-cmpDiaeresis["t"] := "{u+1e97}"  ; (ẗ) t with diaeresis
-cmpDiaeresis["u"] := "{u+00fc}"  ; (ü) u with diaeresis
-cmpDiaeresis["U"] := "{u+00dc}"  ; (Ü) U with diaeresis
-cmpDiaeresis["w"] := "{u+1e85}"  ; (ẅ) w with diaeresis
-cmpDiaeresis["W"] := "{u+1e84}"  ; (Ẅ) W with diaeresis
-cmpDiaeresis["x"] := "{u+1e8d}"  ; (ẍ) x with diaeresis
-cmpDiaeresis["X"] := "{u+1e8c}"  ; (Ẍ) X with diaeresis
-cmpDiaeresis["y"] := "{u+00ff}"  ; (ÿ) y with diaeresis
-cmpDiaeresis["Y"] := "{u+0178}"  ; (Ÿ) Y with diaeresis
-cmpDiaeresis[" "] := "{u+00a8}"  ; (¨) diaeresis
-
-
-; Compose :  Double Acute Accent and Special Letters (=)
+; Compose :  Double Acute Accent (=)

 
 global cmpDoubleAcute := Map()
 cmpDoubleAcute["o"] := "{u+0151}"  ; (ő) o with double acute
 cmpDoubleAcute["O"] := "{u+0150}"  ; (Ő) O with double acute
 cmpDoubleAcute["u"] := "{u+0171}"  ; (ű) u with double acute
 cmpDoubleAcute["U"] := "{u+0170}"  ; (Ű) U with double acute
 
 global cmpDoubleAcute := Map()
 cmpDoubleAcute["o"] := "{u+0151}"  ; (ő) o with double acute
 cmpDoubleAcute["O"] := "{u+0150}"  ; (Ő) O with double acute
 cmpDoubleAcute["u"] := "{u+0171}"  ; (ű) u with double acute
 cmpDoubleAcute["U"] := "{u+0170}"  ; (Ű) U with double acute

-cmpDoubleAcute["h"] := "{u+a727}"  ; (ꜧ) small letter heng
-cmpDoubleAcute["H"] := "{u+a726}"  ; (Ꜧ) capital letter heng

 cmpDoubleAcute[" "] := "{u+02dd}"  ; (˝) double acute accent
 
 
 cmpDoubleAcute[" "] := "{u+02dd}"  ; (˝) double acute accent
 
 

-; Compose :  Grave Accent (`)
-
-global cmpGraveAccent := Map()
-cmpGraveAccent["a"] := "{u+00e0}"  ; (à) a with grave
-cmpGraveAccent["A"] := "{u+00c0}"  ; (À) A with grave
-cmpGraveAccent["e"] := "{u+00e8}"  ; (è) e with grave
-cmpGraveAccent["E"] := "{u+00c8}"  ; (È) E with grave
-cmpGraveAccent["i"] := "{u+00ec}"  ; (ì) i with grave
-cmpGraveAccent["I"] := "{u+00cc}"  ; (Ì) I with grave
-cmpGraveAccent["n"] := "{u+01f9}"  ; (ǹ) n with grave
-cmpGraveAccent["N"] := "{u+01f8}"  ; (Ǹ) N with grave
-cmpGraveAccent["o"] := "{u+00f2}"  ; (ò) o with grave
-cmpGraveAccent["O"] := "{u+00d2}"  ; (Ò) O with grave
-cmpGraveAccent["u"] := "{u+00f9}"  ; (ù) u with grave
-cmpGraveAccent["U"] := "{u+00d9}"  ; (Ù) U with grave
-cmpGraveAccent["v"] := "{u+01dc}"  ; (ǜ) u with diaeresis and grave
-cmpGraveAccent["V"] := "{u+01db}"  ; (Ǜ) U with diaeresis and grave
-cmpGraveAccent["w"] := "{u+1e81}"  ; (ẁ) w with grave
-cmpGraveAccent["W"] := "{u+1e80}"  ; (Ẁ) W with grave
-cmpGraveAccent["y"] := "{u+1ef3}"  ; (ỳ) y with grave
-cmpGraveAccent["Y"] := "{u+1ef2}"  ; (Ỳ) Y with grave
-cmpGraveAccent[" "] := "{u+02cb}"  ; (ˋ) grave accent (modifier)
-
-
-; Compose :  Double Grave (G)
+; Compose :  Double Grave Accent (G)

 
 global cmpDoubleGrave := Map()
 cmpDoubleGrave["a"] := "{u+0201}"  ; (ȁ) a with double grave
 
 global cmpDoubleGrave := Map()
 cmpDoubleGrave["a"] := "{u+0201}"  ; (ȁ) a with double grave


@@ -462,109 +452,155 @@ cmpDoubleGrave["u"] := "{u+0215}"  ; (ȕ) u with double grave
 cmpDoubleGrave["U"] := "{u+0214}"  ; (Ȕ) U with double grave
 
 
 cmpDoubleGrave["U"] := "{u+0214}"  ; (Ȕ) U with double grave
 
 

-; Compose :  Tilde (~)
+; Compose :  Inverted Breve (B)
+
+global cmpInvertedBreve := Map()
+cmpInvertedBreve["a"] := "{u+0203}"  ; (ȃ) a with inverted breve
+cmpInvertedBreve["A"] := "{u+0202}"  ; (Ȃ) A with inverted breve
+cmpInvertedBreve["e"] := "{u+0207}"  ; (ȇ) e with inverted breve
+cmpInvertedBreve["E"] := "{u+0206}"  ; (Ȇ) E with inverted breve
+cmpInvertedBreve["i"] := "{u+020b}"  ; (ȋ) i with inverted breve
+cmpInvertedBreve["I"] := "{u+020a}"  ; (Ȋ) I with inverted breve
+cmpInvertedBreve["o"] := "{u+020f}"  ; (ȏ) o with inverted breve
+cmpInvertedBreve["O"] := "{u+020e}"  ; (Ȏ) O with inverted breve
+cmpInvertedBreve["r"] := "{u+0213}"  ; (ȓ) r with inverted breve
+cmpInvertedBreve["R"] := "{u+0212}"  ; (Ȓ) R with inverted breve
+cmpInvertedBreve["u"] := "{u+0217}"  ; (ȗ) u with inverted breve
+cmpInvertedBreve["U"] := "{u+0216}"  ; (Ȗ) U with inverted breve

 
 

-global cmpTilde := Map()
-cmpTilde["a"] := "{u+00e3}"  ; (ã) a with tilde
-cmpTilde["A"] := "{u+00c3}"  ; (Ã) A with tilde
-cmpTilde["e"] := "{u+1ebd}"  ; (ẽ) e with tilde
-cmpTilde["E"] := "{u+1ebc}"  ; (Ẽ) E with tilde
-cmpTilde["i"] := "{u+0129}"  ; (ĩ) i with tilde
-cmpTilde["I"] := "{u+0128}"  ; (Ĩ) I with tilde
-cmpTilde["n"] := "{u+00f1}"  ; (ñ) n with tilde
-cmpTilde["N"] := "{u+00d1}"  ; (Ñ) N with tilde
-cmpTilde["o"] := "{u+00f5}"  ; (õ) o with tilde
-cmpTilde["O"] := "{u+00d5}"  ; (Õ) O with tilde
-cmpTilde["u"] := "{u+0169}"  ; (ũ) u with tilde
-cmpTilde["U"] := "{u+0168}"  ; (Ũ) U with tilde
-cmpTilde["v"] := "{u+1e7d}"  ; (ṽ) v with tilde
-cmpTilde["V"] := "{u+1e7c}"  ; (Ṽ) V with tilde
-cmpTilde["y"] := "{u+1ef9}"  ; (ỹ) y with tilde
-cmpTilde["Y"] := "{u+1ef8}"  ; (Ỹ) Y with tilde
-cmpTilde[" "] := "{u+02dc}"  ; (˜) tilde
-
-
-; Compose :  Hook and Latin Greek Letters (h)
-
-global cmpHook := Map()
-cmpHook["b"] := "{u+0253}"  ; (ɓ) b with hook
-cmpHook["B"] := "{u+0181}"  ; (Ɓ) B with hook
-cmpHook["c"] := "{u+0188}"  ; (ƈ) c with hook
-cmpHook["C"] := "{u+0187}"  ; (Ƈ) C with hook
-cmpHook["d"] := "{u+0257}"  ; (ɗ) d with hook
-cmpHook["D"] := "{u+018a}"  ; (Ɗ) D with hook
-cmpHook["f"] := "{u+0192}"  ; (ƒ) f with hook
-cmpHook["F"] := "{u+0191}"  ; (Ƒ) F with hook
-cmpHook["g"] := "{u+0260}"  ; (ɠ) g with hook
-cmpHook["G"] := "{u+0193}"  ; (Ɠ) G with hook
-cmpHook["h"] := "{u+0266}"  ; (ɦ) h with hook
-cmpHook["H"] := "{u+a7aa}"  ; (Ɦ) H with hook
-cmpHook["k"] := "{u+0199}"  ; (ƙ) k with hook
-cmpHook["K"] := "{u+0198}"  ; (Ƙ) K with hook
-cmpHook["m"] := "{u+0271}"  ; (ɱ) m with hook
-cmpHook["M"] := "{u+2c6e}"  ; (Ɱ) M with hook
-cmpHook["n"] := "{u+0272}"  ; (ɲ) n with left hook
-cmpHook["N"] := "{u+019d}"  ; (Ɲ) N with left hook
-cmpHook["p"] := "{u+01a5}"  ; (ƥ) p with hook
-cmpHook["P"] := "{u+01a4}"  ; (Ƥ) P with hook
-cmpHook["q"] := "{u+024b}"  ; (ɋ) q with hook tail
-cmpHook["Q"] := "{u+024a}"  ; (Ɋ) Q with hook tail
-cmpHook["r"] := "{u+027d}"  ; (ɽ) r with tail
-cmpHook["R"] := "{u+2c64}"  ; (Ɽ) R with tail
-cmpHook["t"] := "{u+01ad}"  ; (ƭ) t with hook
-cmpHook["T"] := "{u+01ac}"  ; (Ƭ) T with hook
-cmpHook["v"] := "{u+028b}"  ; (ʋ) v with hook
-cmpHook["V"] := "{u+01b2}"  ; (Ʋ) V with hook
-cmpHook["w"] := "{u+2c73}"  ; (ⱳ) w with hook
-cmpHook["W"] := "{u+2c72}"  ; (Ⱳ) W with hook
-cmpHook["y"] := "{u+01b4}"  ; (ƴ) y with hook
-cmpHook["Y"] := "{u+01b3}"  ; (Ƴ) Y with hook
-cmpHook["z"] := "{u+0225}"  ; (ȥ) z with hook
-cmpHook["Z"] := "{u+0224}"  ; (Ȥ) Z with hook
-cmpHook["a"] := "{u+0251}"  ; (ɑ) latin small letter alpha
-cmpHook["A"] := "{u+2c6d}"  ; (Ɑ) latin capital letter alpha
-cmpHook["e"] := "{u+025b}"  ; (ɛ) small open e (latin small epsilon)
-cmpHook["E"] := "{u+0190}"  ; (Ɛ) capital open E (latin capital epsilon)
-cmpHook["i"] := "{u+0269}"  ; (ɩ) latin small letter iota
-cmpHook["I"] := "{u+0196}"  ; (Ɩ) latin capital letter iota
-cmpHook["j"] := "{u+0263}"  ; (ɣ) latin small gamma
-cmpHook["J"] := "{u+0194}"  ; (Ɣ) latin capital gamma
-cmpHook["o"] := "{u+0254}"  ; (ɔ) small open o
-cmpHook["O"] := "{u+0186}"  ; (Ɔ) capital open O
-cmpHook["s"] := "{u+0283}"  ; (ʃ) small letter esh
-cmpHook["S"] := "{u+01a9}"  ; (Ʃ) capital letter esh
-cmpHook["u"] := "{u+028a}"  ; (ʊ) latin small letter upsilon
-cmpHook["U"] := "{u+01b1}"  ; (Ʊ) latin capital letter upsilon
-
-
-; Compose :  Horn and Special Letters (H)
-
-global cmpHorn := Map()
-cmpHorn["o"] := "{u+01a1}"  ; (ơ) o with horn
-cmpHorn["O"] := "{u+01a0}"  ; (Ơ) O with horn
-cmpHorn["u"] := "{u+01b0}"  ; (ư) u with horn
-cmpHorn["U"] := "{u+01af}"  ; (Ư) U with horn
-cmpHorn["g"] := "{u+ab36}"  ; (ꬶ) cross-tailed g
-cmpHorn["h"] := "{u+0267}"  ; (ɧ) small letter heng with hook
-cmpHorn["k"] := "{u+0138}"  ; (ĸ) small letter kra
-cmpHorn["s"] := "{u+017f}"  ; (ſ) small long s
-cmpHorn["S"] := "{u+1e9b}"  ; (ẛ) small long s with dot above
-
-
-; Compose :  Turned Letters (t)
-
-global cmpTurned := Map()
-cmpTurned["a"] := "{u+0250}"  ; (ɐ) small turned a
-cmpTurned["A"] := "{u+2c6f}"  ; (Ɐ) capital turned A
-cmpTurned["e"] := "{u+01dd}"  ; (ǝ) small turned e
-cmpTurned["E"] := "{u+018e}"  ; (Ǝ) capital reversed E
-cmpTurned["q"] := "{u+0252}"  ; (ɒ) latin small letter turned alpha
-cmpTurned["Q"] := "{u+2c70}"  ; (Ɒ) latin capital letter turned alpha
-cmpTurned["v"] := "{u+028c}"  ; (ʌ) latin small letter turned v
-cmpTurned["V"] := "{u+0245}"  ; (Ʌ) latin capital letter turned V
-
-
-; Compose :  Currency ($)
+
+; Compose :  Hook and Horn (h)
+
+global cmpSmallH := Map()
+cmpSmallH["b"] := "{u+0253}"  ; (ɓ) b with hook
+cmpSmallH["B"] := "{u+0181}"  ; (Ɓ) B with hook
+cmpSmallH["c"] := "{u+0188}"  ; (ƈ) c with hook
+cmpSmallH["C"] := "{u+0187}"  ; (Ƈ) C with hook
+cmpSmallH["d"] := "{u+0257}"  ; (ɗ) d with hook
+cmpSmallH["D"] := "{u+018a}"  ; (Ɗ) D with hook
+cmpSmallH["e"] := "{u+025a}"  ; (ɚ) small letter schwa with hook
+cmpSmallH["f"] := "{u+0192}"  ; (ƒ) f with hook
+cmpSmallH["F"] := "{u+0191}"  ; (Ƒ) F with hook
+cmpSmallH["g"] := "{u+0260}"  ; (ɠ) g with hook
+cmpSmallH["G"] := "{u+0193}"  ; (Ɠ) G with hook
+cmpSmallH["h"] := "{u+0266}"  ; (ɦ) h with hook
+cmpSmallH["H"] := "{u+a7aa}"  ; (Ɦ) H with hook
+cmpSmallH["j"] := "{u+0267}"  ; (ɧ) small letter heng with hook
+cmpSmallH["k"] := "{u+0199}"  ; (ƙ) k with hook
+cmpSmallH["K"] := "{u+0198}"  ; (Ƙ) K with hook
+cmpSmallH["m"] := "{u+0271}"  ; (ɱ) m with hook
+cmpSmallH["M"] := "{u+2c6e}"  ; (Ɱ) M with hook
+cmpSmallH["n"] := "{u+0272}"  ; (ɲ) n with left hook
+cmpSmallH["N"] := "{u+019d}"  ; (Ɲ) N with left hook
+cmpSmallH["o"] := "{u+01a1}"  ; (ơ) o with horn
+cmpSmallH["O"] := "{u+01a0}"  ; (Ơ) O with horn
+cmpSmallH["p"] := "{u+01a5}"  ; (ƥ) p with hook
+cmpSmallH["P"] := "{u+01a4}"  ; (Ƥ) P with hook
+cmpSmallH["q"] := "{u+024b}"  ; (ɋ) q with hook tail
+cmpSmallH["Q"] := "{u+024a}"  ; (Ɋ) Q with hook tail
+cmpSmallH["r"] := "{u+027d}"  ; (ɽ) r with tail
+cmpSmallH["R"] := "{u+2c64}"  ; (Ɽ) R with tail
+cmpSmallH["s"] := "{u+0282}"  ; (ʂ) s with hook
+cmpSmallH["t"] := "{u+01ad}"  ; (ƭ) t with hook
+cmpSmallH["T"] := "{u+01ac}"  ; (Ƭ) T with hook
+cmpSmallH["u"] := "{u+01b0}"  ; (ư) u with horn
+cmpSmallH["U"] := "{u+01af}"  ; (Ư) U with horn
+cmpSmallH["v"] := "{u+028b}"  ; (ʋ) v with hook
+cmpSmallH["V"] := "{u+01b2}"  ; (Ʋ) V with hook
+cmpSmallH["w"] := "{u+2c73}"  ; (ⱳ) w with hook
+cmpSmallH["W"] := "{u+2c72}"  ; (Ⱳ) W with hook
+cmpSmallH["y"] := "{u+01b4}"  ; (ƴ) y with hook
+cmpSmallH["Y"] := "{u+01b3}"  ; (Ƴ) Y with hook
+cmpSmallH["z"] := "{u+0225}"  ; (ȥ) z with hook
+cmpSmallH["Z"] := "{u+0224}"  ; (Ȥ) Z with hook
+
+
+; Compose :  Retroflex Hook, Crossed-Tail and Variations (f)
+
+global cmpSmallF := Map()
+cmpSmallF["a"] := "{u+1d8f}"  ; (ᶏ) a with retroflex hook
+cmpSmallF["d"] := "{u+1d91}"  ; (ᶑ) d with hook and tail
+cmpSmallF["e"] := "{u+1d92}"  ; (ᶒ) e with retroflex hook
+cmpSmallF["f"] := "{u+1d93}"  ; (ᶓ) small letter open e with retroflex hook
+cmpSmallF["g"] := "{u+ab36}"  ; (ꬶ) small letter script g with crossed-tail
+cmpSmallF["h"] := "{u+a727}"  ; (ꜧ) small letter heng
+cmpSmallF["H"] := "{u+a726}"  ; (Ꜧ) capital letter heng
+cmpSmallF["i"] := "{u+1d96}"  ; (ᶖ) i with retroflex hook
+cmpSmallF["j"] := "{u+029d}"  ; (ʝ) j with crossed-tail
+cmpSmallF["l"] := "{u+026d}"  ; (ɭ) l with retroflex hook
+cmpSmallF["n"] := "{u+0273}"  ; (ɳ) n with retroflex hook
+cmpSmallF["o"] := "{u+1d97}"  ; (ᶗ) small letter open o with retroflex hook
+cmpSmallF["q"] := "{u+1d90}"  ; (ᶐ) Latin small letter alpha with retroflex hook
+cmpSmallF["r"] := "{u+027e}"  ; (ɾ) r with fishhook
+cmpSmallF["t"] := "{u+0288}"  ; (ʈ) t with retroflex hook
+cmpSmallF["T"] := "{u+01ae}"  ; (Ʈ) T with retroflex hook
+cmpSmallF["u"] := "{u+1d99}"  ; (ᶙ) u with retroflex hook
+cmpSmallF["v"] := "{u+2c71}"  ; (ⱱ) v with right hook
+cmpSmallF["w"] := "{u+2c73}"  ; (ⱳ) w with right hook
+cmpSmallF["W"] := "{u+2c72}"  ; (Ⱳ) W with right hook
+cmpSmallF["z"] := "{u+0290}"  ; (ʐ) z with retroflex hook
+
+
+; Compose :  Latin Greek Letters and Variations (l)
+
+global cmpSmallL := Map()
+cmpSmallL["a"] := "{u+0251}"  ; (ɑ) Latin small letter alpha
+cmpSmallL["A"] := "{u+2c6d}"  ; (Ɑ) Latin capital letter alpha
+cmpSmallL["d"] := "{u+1e9f}"  ; (ẟ) Latin small letter delta
+cmpSmallL["e"] := "{u+025b}"  ; (ɛ) small letter open e (Latin small epsilon)
+cmpSmallL["E"] := "{u+0190}"  ; (Ɛ) capital letter open E (Latin capital epsilon)
+cmpSmallL["f"] := "{u+0278}"  ; (ɸ) Latin small letter phi
+cmpSmallL["g"] := "{u+0261}"  ; (ɡ) small letter script g
+cmpSmallL["G"] := "{u+a7ac}"  ; (Ɡ) capital letter script G
+cmpSmallL["i"] := "{u+0269}"  ; (ɩ) Latin small letter iota
+cmpSmallL["I"] := "{u+0196}"  ; (Ɩ) Latin capital letter iota
+cmpSmallL["j"] := "{u+0263}"  ; (ɣ) Latin small letter gamma
+cmpSmallL["J"] := "{u+0194}"  ; (Ɣ) Latin capital letter gamma
+cmpSmallL["k"] := "{u+0138}"  ; (ĸ) small letter kra
+cmpSmallL["m"] := "{u+0270}"  ; (ɰ) small letter turned m with long leg
+cmpSmallL["n"] := "{u+019e}"  ; (ƞ) small letter n with long right leg
+cmpSmallL["N"] := "{u+0220}"  ; (Ƞ) capital letter N with long right leg
+cmpSmallL["o"] := "{u+0254}"  ; (ɔ) small letter open o
+cmpSmallL["O"] := "{u+0186}"  ; (Ɔ) capital letter open O
+cmpSmallL["q"] := "{u+01a3}"  ; (ƣ) small letter gha
+cmpSmallL["Q"] := "{u+01a2}"  ; (Ƣ) capital letter gha
+cmpSmallL["s"] := "{u+0283}"  ; (ʃ) small letter esh
+cmpSmallL["S"] := "{u+01a9}"  ; (Ʃ) capital letter esh
+cmpSmallL["u"] := "{u+028a}"  ; (ʊ) Latin small letter upsilon
+cmpSmallL["U"] := "{u+01b1}"  ; (Ʊ) Latin capital letter upsilon
+
+
+; Compose :  Turned Letters (r)
+
+global cmpSmallR := Map()
+cmpSmallR["a"] := "{u+0250}"  ; (ɐ) small letter turned a
+cmpSmallR["A"] := "{u+2c6f}"  ; (Ɐ) capital letter turned A
+cmpSmallR["c"] := "{u+025c}"  ; (ɜ) small letter reversed open e
+cmpSmallR["d"] := "{u+018d}"  ; (ƍ) Latin small letter turned delta
+cmpSmallR["e"] := "{u+01dd}"  ; (ǝ) small letter turned e
+cmpSmallR["E"] := "{u+018e}"  ; (Ǝ) capital letter reversed E
+cmpSmallR["f"] := "{u+0258}"  ; (ɘ) small letter reversed e
+cmpSmallR["g"] := "{u+1d77}"  ; (ᵷ) small letter turned g
+cmpSmallR["G"] := "{u+2141}"  ; (⅁) capital letter turned G
+cmpSmallR["h"] := "{u+0265}"  ; (ɥ) small letter turned h
+cmpSmallR["H"] := "{u+a78d}"  ; (Ɥ) capital letter turned H
+cmpSmallR["i"] := "{u+1d09}"  ; (ᴉ) small letter turned i
+cmpSmallR["k"] := "{u+029e}"  ; (ʞ) small letter turned k
+cmpSmallR["K"] := "{u+a7b0}"  ; (Ʞ) capital letter turned K
+cmpSmallR["m"] := "{u+026f}"  ; (ɯ) small letter turned m
+cmpSmallR["M"] := "{u+019c}"  ; (Ɯ) capital letter turned M
+cmpSmallR["o"] := "{u+0264}"  ; (ɤ) small letter rams horn
+cmpSmallR["q"] := "{u+0252}"  ; (ɒ) Latin small letter turned alpha
+cmpSmallR["Q"] := "{u+2c70}"  ; (Ɒ) Latin capital letter turned alpha
+cmpSmallR["r"] := "{u+0279}"  ; (ɹ) small letter turned r
+cmpSmallR["t"] := "{u+0287}"  ; (ʇ) small letter turned t
+cmpSmallR["v"] := "{u+028c}"  ; (ʌ) small letter turned v
+cmpSmallR["V"] := "{u+0245}"  ; (Ʌ) capital letter turned V
+cmpSmallR["w"] := "{u+028d}"  ; (ʍ) small letter turned w
+cmpSmallR["y"] := "{u+028e}"  ; (ʎ) small letter turned y
+
+
+; Compose :  Currency Symbols ($)

 
 global cmpCurrency := Map()
 cmpCurrency["a"] := "{u+058f}"  ; (֏) Armenian dram
 
 global cmpCurrency := Map()
 cmpCurrency["a"] := "{u+058f}"  ; (֏) Armenian dram


@@ -614,60 +650,60 @@ cmpCurrency[" "] := "{u+00a4}"  ; (¤) currency sign
 
 ; Compose :  Greek Alphabet (g)
 
 
 ; Compose :  Greek Alphabet (g)
 

-global cmpGreekAlphabet := Map()
-cmpGreekAlphabet["a"] := "{u+03b1}"  ; (α) small alpha
-cmpGreekAlphabet["A"] := "{u+0391}"  ; (Α) capital alpha
-cmpGreekAlphabet["b"] := "{u+03b2}"  ; (β) small beta
-cmpGreekAlphabet["B"] := "{u+0392}"  ; (Β) capital beta
-cmpGreekAlphabet["v"] := "{u+03b2}"  ; (β) small beta
-cmpGreekAlphabet["V"] := "{u+0392}"  ; (Β) capital beta
-cmpGreekAlphabet["g"] := "{u+03b3}"  ; (γ) small gamma
-cmpGreekAlphabet["G"] := "{u+0393}"  ; (Γ) capital gamma
-cmpGreekAlphabet["d"] := "{u+03b4}"  ; (δ) small delta
-cmpGreekAlphabet["D"] := "{u+0394}"  ; (Δ) capital delta
-cmpGreekAlphabet["e"] := "{u+03b5}"  ; (ε) small epsilon
-cmpGreekAlphabet["E"] := "{u+0395}"  ; (Ε) capital epsilon
-cmpGreekAlphabet["z"] := "{u+03b6}"  ; (ζ) small zeta
-cmpGreekAlphabet["Z"] := "{u+0396}"  ; (Ζ) capital zeta
-cmpGreekAlphabet["h"] := "{u+03b7}"  ; (η) small eta
-cmpGreekAlphabet["H"] := "{u+0397}"  ; (Η) capital eta
-cmpGreekAlphabet["j"] := "{u+03b8}"  ; (θ) small theta
-cmpGreekAlphabet["J"] := "{u+0398}"  ; (Θ) capital theta
-cmpGreekAlphabet["i"] := "{u+03b9}"  ; (ι) small iota
-cmpGreekAlphabet["I"] := "{u+0399}"  ; (Ι) capital iota
-cmpGreekAlphabet["k"] := "{u+03ba}"  ; (κ) small kappa
-cmpGreekAlphabet["K"] := "{u+039a}"  ; (Κ) capital kappa
-cmpGreekAlphabet["l"] := "{u+03bb}"  ; (λ) small lambda
-cmpGreekAlphabet["L"] := "{u+039b}"  ; (Λ) capital lambda
-cmpGreekAlphabet["m"] := "{u+03bc}"  ; (μ) small mu
-cmpGreekAlphabet["M"] := "{u+039c}"  ; (Μ) capital mu
-cmpGreekAlphabet["n"] := "{u+03bd}"  ; (ν) small nu
-cmpGreekAlphabet["N"] := "{u+039d}"  ; (Ν) capital nu
-cmpGreekAlphabet["x"] := "{u+03be}"  ; (ξ) small xi
-cmpGreekAlphabet["X"] := "{u+039e}"  ; (Ξ) capital xi
-cmpGreekAlphabet["o"] := "{u+03bf}"  ; (ο) small omicron
-cmpGreekAlphabet["O"] := "{u+039f}"  ; (Ο) capital omicron
-cmpGreekAlphabet["p"] := "{u+03c0}"  ; (π) small pi
-cmpGreekAlphabet["P"] := "{u+03a0}"  ; (Π) capital pi
-cmpGreekAlphabet["r"] := "{u+03c1}"  ; (ρ) small rho
-cmpGreekAlphabet["R"] := "{u+03a1}"  ; (Ρ) capital rho
-cmpGreekAlphabet["s"] := "{u+03c3}"  ; (σ) small sigma
-cmpGreekAlphabet["S"] := "{u+03a3}"  ; (Σ) capital sigma
-cmpGreekAlphabet[","] := "{u+03c2}"  ; (ς) small final sigma
-cmpGreekAlphabet["t"] := "{u+03c4}"  ; (τ) small tau
-cmpGreekAlphabet["T"] := "{u+03a4}"  ; (Τ) capital tau
-cmpGreekAlphabet["u"] := "{u+03c5}"  ; (υ) small upsilon
-cmpGreekAlphabet["U"] := "{u+03a5}"  ; (Υ) capital upsilon
-cmpGreekAlphabet["y"] := "{u+03c5}"  ; (υ) small upsilon
-cmpGreekAlphabet["Y"] := "{u+03a5}"  ; (Υ) capital upsilon
-cmpGreekAlphabet["f"] := "{u+03c6}"  ; (φ) small phi
-cmpGreekAlphabet["F"] := "{u+03a6}"  ; (Φ) capital phi
-cmpGreekAlphabet["c"] := "{u+03c7}"  ; (χ) small chi
-cmpGreekAlphabet["C"] := "{u+03a7}"  ; (Χ) capital chi
-cmpGreekAlphabet["w"] := "{u+03c8}"  ; (ψ) small psi
-cmpGreekAlphabet["W"] := "{u+03a8}"  ; (Ψ) capital psi
-cmpGreekAlphabet["q"] := "{u+03c9}"  ; (ω) small omega
-cmpGreekAlphabet["Q"] := "{u+03a9}"  ; (Ω) capital omega
+global cmpGreek := Map()
+cmpGreek["a"] := "{u+03b1}"  ; (α) Greek small alpha
+cmpGreek["A"] := "{u+0391}"  ; (Α) Greek capital alpha
+cmpGreek["b"] := "{u+03b2}"  ; (β) Greek small beta
+cmpGreek["B"] := "{u+0392}"  ; (Β) Greek capital beta
+cmpGreek["v"] := "{u+03b2}"  ; (β) Greek small beta
+cmpGreek["V"] := "{u+0392}"  ; (Β) Greek capital beta
+cmpGreek["g"] := "{u+03b3}"  ; (γ) Greek small gamma
+cmpGreek["G"] := "{u+0393}"  ; (Γ) Greek capital gamma
+cmpGreek["d"] := "{u+03b4}"  ; (δ) Greek small delta
+cmpGreek["D"] := "{u+0394}"  ; (Δ) Greek capital delta
+cmpGreek["e"] := "{u+03b5}"  ; (ε) Greek small epsilon
+cmpGreek["E"] := "{u+0395}"  ; (Ε) Greek capital epsilon
+cmpGreek["z"] := "{u+03b6}"  ; (ζ) Greek small zeta
+cmpGreek["Z"] := "{u+0396}"  ; (Ζ) Greek capital zeta
+cmpGreek["h"] := "{u+03b7}"  ; (η) Greek small eta
+cmpGreek["H"] := "{u+0397}"  ; (Η) Greek capital eta
+cmpGreek["j"] := "{u+03b8}"  ; (θ) Greek small theta
+cmpGreek["J"] := "{u+0398}"  ; (Θ) Greek capital theta
+cmpGreek["i"] := "{u+03b9}"  ; (ι) Greek small iota
+cmpGreek["I"] := "{u+0399}"  ; (Ι) Greek capital iota
+cmpGreek["k"] := "{u+03ba}"  ; (κ) Greek small kappa
+cmpGreek["K"] := "{u+039a}"  ; (Κ) Greek capital kappa
+cmpGreek["l"] := "{u+03bb}"  ; (λ) Greek small lambda
+cmpGreek["L"] := "{u+039b}"  ; (Λ) Greek capital lambda
+cmpGreek["m"] := "{u+03bc}"  ; (μ) Greek small mu
+cmpGreek["M"] := "{u+039c}"  ; (Μ) Greek capital mu
+cmpGreek["n"] := "{u+03bd}"  ; (ν) Greek small nu
+cmpGreek["N"] := "{u+039d}"  ; (Ν) Greek capital nu
+cmpGreek["x"] := "{u+03be}"  ; (ξ) Greek small xi
+cmpGreek["X"] := "{u+039e}"  ; (Ξ) Greek capital xi
+cmpGreek["o"] := "{u+03bf}"  ; (ο) Greek small omicron
+cmpGreek["O"] := "{u+039f}"  ; (Ο) Greek capital omicron
+cmpGreek["p"] := "{u+03c0}"  ; (π) Greek small pi
+cmpGreek["P"] := "{u+03a0}"  ; (Π) Greek capital pi
+cmpGreek["r"] := "{u+03c1}"  ; (ρ) Greek small rho
+cmpGreek["R"] := "{u+03a1}"  ; (Ρ) Greek capital rho
+cmpGreek["s"] := "{u+03c3}"  ; (σ) Greek small sigma
+cmpGreek["S"] := "{u+03a3}"  ; (Σ) Greek capital sigma
+cmpGreek[","] := "{u+03c2}"  ; (ς) Greek small final sigma
+cmpGreek["t"] := "{u+03c4}"  ; (τ) Greek small tau
+cmpGreek["T"] := "{u+03a4}"  ; (Τ) Greek capital tau
+cmpGreek["u"] := "{u+03c5}"  ; (υ) Greek small upsilon
+cmpGreek["U"] := "{u+03a5}"  ; (Υ) Greek capital upsilon
+cmpGreek["y"] := "{u+03c5}"  ; (υ) Greek small upsilon
+cmpGreek["Y"] := "{u+03a5}"  ; (Υ) Greek capital upsilon
+cmpGreek["f"] := "{u+03c6}"  ; (φ) Greek small phi
+cmpGreek["F"] := "{u+03a6}"  ; (Φ) Greek capital phi
+cmpGreek["c"] := "{u+03c7}"  ; (χ) Greek small chi
+cmpGreek["C"] := "{u+03a7}"  ; (Χ) Greek capital chi
+cmpGreek["w"] := "{u+03c8}"  ; (ψ) Greek small psi
+cmpGreek["W"] := "{u+03a8}"  ; (Ψ) Greek capital psi
+cmpGreek["q"] := "{u+03c9}"  ; (ω) Greek small omega
+cmpGreek["Q"] := "{u+03a9}"  ; (Ω) Greek capital omega

 
 
 ; Compose :  Superscript Characters (p)
 
 
 ; Compose :  Superscript Characters (p)


@@ -683,6 +719,7 @@ cmpSuperscript["7"] := "{u+2077}"  ; (⁷) superscript 7
 cmpSuperscript["8"] := "{u+2078}"  ; (⁸) superscript 8
 cmpSuperscript["9"] := "{u+2079}"  ; (⁹) superscript 9
 cmpSuperscript["0"] := "{u+2070}"  ; (⁰) superscript 0
 cmpSuperscript["8"] := "{u+2078}"  ; (⁸) superscript 8
 cmpSuperscript["9"] := "{u+2079}"  ; (⁹) superscript 9
 cmpSuperscript["0"] := "{u+2070}"  ; (⁰) superscript 0

+cmpSuperscript["i"] := "{u+2071}"  ; (ⁱ) superscript i

 cmpSuperscript["n"] := "{u+207f}"  ; (ⁿ) superscript n
 cmpSuperscript["+"] := "{u+207a}"  ; (⁺) superscript +
 cmpSuperscript["-"] := "{u+207b}"  ; (⁻) superscript -
 cmpSuperscript["n"] := "{u+207f}"  ; (ⁿ) superscript n
 cmpSuperscript["+"] := "{u+207a}"  ; (⁺) superscript +
 cmpSuperscript["-"] := "{u+207b}"  ; (⁻) superscript -


@@ -704,7 +741,29 @@ cmpSubscript["7"] := "{u+2087}"  ; (₇) subscript 7
 cmpSubscript["8"] := "{u+2088}"  ; (₈) subscript 8
 cmpSubscript["9"] := "{u+2089}"  ; (₉) subscript 9
 cmpSubscript["0"] := "{u+2080}"  ; (₀) subscript 0
 cmpSubscript["8"] := "{u+2088}"  ; (₈) subscript 8
 cmpSubscript["9"] := "{u+2089}"  ; (₉) subscript 9
 cmpSubscript["0"] := "{u+2080}"  ; (₀) subscript 0

+cmpSubscript["a"] := "{u+2090}"  ; (ₐ) subscript a
+cmpSubscript["b"] := "{u+1d66}"  ; (ᵦ) subscript beta
+cmpSubscript["c"] := "{u+1d6a}"  ; (ᵪ) subscript chi
+cmpSubscript["e"] := "{u+2091}"  ; (ₑ) subscript e
+cmpSubscript["E"] := "{u+2094}"  ; (ₔ) subscript schwa
+cmpSubscript["f"] := "{u+1d69}"  ; (ᵩ) subscript phi
+cmpSubscript["g"] := "{u+1d67}"  ; (ᵧ) subscript gamma
+cmpSubscript["h"] := "{u+2095}"  ; (ₕ) subscript h
+cmpSubscript["i"] := "{u+1d62}"  ; (ᵢ) subscript i
+cmpSubscript["j"] := "{u+2c7c}"  ; (ⱼ) subscript j
+cmpSubscript["k"] := "{u+2096}"  ; (ₖ) subscript k
+cmpSubscript["l"] := "{u+2097}"  ; (ₗ) subscript l
+cmpSubscript["m"] := "{u+2098}"  ; (ₘ) subscript m

 cmpSubscript["n"] := "{u+2099}"  ; (ₙ) subscript n
 cmpSubscript["n"] := "{u+2099}"  ; (ₙ) subscript n

+cmpSubscript["o"] := "{u+2092}"  ; (ₒ) subscript o
+cmpSubscript["p"] := "{u+209a}"  ; (ₚ) subscript p
+cmpSubscript["r"] := "{u+1d63}"  ; (ᵣ) subscript r
+cmpSubscript["R"] := "{u+1d68}"  ; (ᵨ) subscript rho
+cmpSubscript["s"] := "{u+209b}"  ; (ₛ) subscript s
+cmpSubscript["t"] := "{u+209c}"  ; (ₜ) subscript t
+cmpSubscript["u"] := "{u+1d64}"  ; (ᵤ) subscript u
+cmpSubscript["v"] := "{u+1d65}"  ; (ᵥ) subscript v
+cmpSubscript["x"] := "{u+2093}"  ; (ₓ) subscript x

 cmpSubscript["+"] := "{u+208a}"  ; (₊) subscript +
 cmpSubscript["-"] := "{u+208b}"  ; (₋) subscript -
 cmpSubscript["="] := "{u+208c}"  ; (₌) subscript =
 cmpSubscript["+"] := "{u+208a}"  ; (₊) subscript +
 cmpSubscript["-"] := "{u+208b}"  ; (₋) subscript -
 cmpSubscript["="] := "{u+208c}"  ; (₌) subscript =


@@ -742,7 +801,14 @@ cmpQuad["3"] := "{u+2001}"  ; em quad
 ; Compose :  Arrows and Pointers
 
 global cmpArrow := Map()
 ; Compose :  Arrows and Pointers
 
 global cmpArrow := Map()

-global cmpPlus := Map()
+cmpArrow["w"] := "{u+25b2}"  ; (▲) black up-pointing triangle
+cmpArrow["a"] := "{u+25c0}"  ; (◀) black left-pointing triangle
+cmpArrow["s"] := "{u+25bc}"  ; (▼) black down-pointing triangle
+cmpArrow["d"] := "{u+25b6}"  ; (▶) black right-pointing triangle
+cmpArrow["i"] := "{u+25b3}"  ; (△) white up-pointing triangle
+cmpArrow["j"] := "{u+25c1}"  ; (◁) white left-pointing triangle
+cmpArrow["k"] := "{u+25bd}"  ; (▽) white down-pointing triangle
+cmpArrow["l"] := "{u+25b7}"  ; (▷) white right-pointing triangle

 cmpArrow["1"] := "{u+2199}"  ; (↙) south west arrow
 cmpArrow["2"] := "{u+2193}"  ; (↓) downwards arrow
 cmpArrow["3"] := "{u+2198}"  ; (↘) south east arrow
 cmpArrow["1"] := "{u+2199}"  ; (↙) south west arrow
 cmpArrow["2"] := "{u+2193}"  ; (↓) downwards arrow
 cmpArrow["3"] := "{u+2198}"  ; (↘) south east arrow


@@ -763,101 +829,33 @@ cmpDoubleAcute["7"] := "{u+21d6}"  ; (⇖) north west double arrow
 cmpDoubleAcute["8"] := "{u+21d1}"  ; (⇑) upwards double arrow
 cmpDoubleAcute["9"] := "{u+21d7}"  ; (⇗) north east double arrow
 cmpDoubleAcute["0"] := "{u+21d4}"  ; (⇔) left right double arrow
 cmpDoubleAcute["8"] := "{u+21d1}"  ; (⇑) upwards double arrow
 cmpDoubleAcute["9"] := "{u+21d7}"  ; (⇗) north east double arrow
 cmpDoubleAcute["0"] := "{u+21d4}"  ; (⇔) left right double arrow

-cmpPlus["2"] := "{u+25bc}"  ; (▼) black down-pointing triangle
-cmpPlus["@"] := "{u+25bd}"  ; (▽) white down-pointing triangle
-cmpPlus["4"] := "{u+25c0}"  ; (◀) black left-pointing triangle
-cmpPlus["$"] := "{u+25c1}"  ; (◁) white left-pointing triangle
-cmpPlus["6"] := "{u+25b6}"  ; (▶) black right-pointing triangle
-cmpPlus["^"] := "{u+25b7}"  ; (▷) white right-pointing triangle
-cmpPlus["8"] := "{u+25b2}"  ; (▲) black up-pointing triangle
-cmpPlus["*"] := "{u+25b3}"  ; (△) white up-pointing triangle

 
 
 
 

-; Compose :  Miscellaneous Symbols (s)
+; Compose :  Various Symbols (s)

 
 global cmpSymbols := Map()
 cmpSymbols["a"] := "{u+214d}"  ; (⅍) aktieselskab
 
 global cmpSymbols := Map()
 cmpSymbols["a"] := "{u+214d}"  ; (⅍) aktieselskab

+cmpSymbols["b"] := "{u+2e18}"  ; (⸘) inverted interrobang

 cmpSymbols["c"] := "{u+2105}"  ; (℅) care of
 cmpSymbols["d"] := "{u+22c4}"  ; (⋄) diamond operator
 cmpSymbols["e"] := "{u+212e}"  ; (℮) estimated symbol
 cmpSymbols["c"] := "{u+2105}"  ; (℅) care of
 cmpSymbols["d"] := "{u+22c4}"  ; (⋄) diamond operator
 cmpSymbols["e"] := "{u+212e}"  ; (℮) estimated symbol

-cmpSymbols["E"] := "{u+2709}"  ; (✉) envelope
-cmpSymbols["f"] := "{u+2640}"  ; (♀) Venus symbol (female)
-cmpSymbols["g"] := "{u+2740}"  ; (❀) white florette
-cmpSymbols["G"] := "{u+273f}"  ; (✿) black florette
-cmpSymbols["h"] := "{u+2766}"  ; (❦) floral heart
-cmpSymbols["H"] := "{u+2767}"  ; (❧) rotated floral heart bullet
+cmpSymbols["f"] := "{u+2640}"  ; (♀) female sign (Venus)
+cmpSymbols["h"] := "{u+2126}"  ; (Ω) ohm sign (backwards compatibility)

 cmpSymbols["i"] := "{u+2300}"  ; (⌀) diameter sign
 cmpSymbols["l"] := "{u+2113}"  ; (ℓ) script small l
 cmpSymbols["L"] := "{u+2112}"  ; (ℒ) Laplace transform
 cmpSymbols["i"] := "{u+2300}"  ; (⌀) diameter sign
 cmpSymbols["l"] := "{u+2113}"  ; (ℓ) script small l
 cmpSymbols["L"] := "{u+2112}"  ; (ℒ) Laplace transform

-cmpSymbols["m"] := "{u+2642}"  ; (♂) Mars symbol (male)
+cmpSymbols["m"] := "{u+2642}"  ; (♂) male sign (Mars)

 cmpSymbols["M"] := "{u+2120}"  ; (℠) service mark
 cmpSymbols["M"] := "{u+2120}"  ; (℠) service mark

-cmpSymbols["q"] := "{u+2126}"  ; (Ω) ohm sign (backwards compatibility)
-cmpSymbols["r"] := "{u+2619}"  ; (☙) reversed rotated floral heart bullet
+cmpSymbols["q"] := "{u+2e2e}"  ; (⸮) reversed question mark
+cmpSymbols["r"] := "{u+211e}"  ; (℞) prescription take (Recipere)

 cmpSymbols["R"] := "{u+211e}"  ; (℞) prescription take (Recipere)
 cmpSymbols["R"] := "{u+211e}"  ; (℞) prescription take (Recipere)

-cmpSymbols["t"] := "{u+2706}"  ; (✆) telephone location sign
-cmpSymbols["v"] := "{u+2713}"  ; (✓) check mark
-cmpSymbols["V"] := "{u+2714}"  ; (✔) heavy check mark
-cmpSymbols["w"] := "{u+26a0}"  ; (⚠) warning sign
-cmpSymbols["x"] := "{u+2717}"  ; (✗) ballot x
-cmpSymbols["X"] := "{u+2718}"  ; (✘) heavy ballot x

 cmpSymbols["2"] := "{u+266b}"  ; (♫) beamed eighth notes
 cmpSymbols["3"] := "{u+2042}"  ; (⁂) asterism
 cmpSymbols["2"] := "{u+266b}"  ; (♫) beamed eighth notes
 cmpSymbols["3"] := "{u+2042}"  ; (⁂) asterism

-cmpSymbols["5"] := "{u+2605}"  ; (★) black star
-cmpSymbols["%"] := "{u+2606}"  ; (☆) white star
-cmpSymbols["6"] := "{u+273d}"  ; (✽) heavy teardrop-spoked asterisk
-cmpSymbols["^"] := "{u+273b}"  ; (✻) teardrop-spoked asterisk

 cmpSymbols["8"] := "{u+266a}"  ; (♪) eighth note
 cmpSymbols["8"] := "{u+266a}"  ; (♪) eighth note

-cmpSymbols[";"] := "{u+263a}"  ; (☺) white smiling face
-cmpSymbols[":"] := "{u+263b}"  ; (☻) black smiling face

 cmpSymbols["!"] := "{u+203c}"  ; (‼) double exclamation mark
 cmpSymbols["?"] := "{u+203d}"  ; (‽) interrobang
 cmpSymbols["\"] := "{u+205e}"  ; (⁞) vertical four dots
 cmpSymbols["|"] := "{u+00a6}"  ; (¦) broken bar
 cmpSymbols["!"] := "{u+203c}"  ; (‼) double exclamation mark
 cmpSymbols["?"] := "{u+203d}"  ; (‽) interrobang
 cmpSymbols["\"] := "{u+205e}"  ; (⁞) vertical four dots
 cmpSymbols["|"] := "{u+00a6}"  ; (¦) broken bar

-cmpSymbols["."] := "{u+2e18}"  ; (⸘) inverted interrobang
-cmpSymbols["/"] := "{u+2e2e}"  ; (⸮) reversed question mark
-
-
-; Compose :  Playing Card Suit Symbols (S)
-
-global cmpPlayingCardSuit := Map()
-cmpPlayingCardSuit["c"] := "{u+2663}"  ; (♣) black club suit
-cmpPlayingCardSuit["C"] := "{u+2667}"  ; (♧) white club suit
-cmpPlayingCardSuit["d"] := "{u+2666}"  ; (♦) black diamond suit
-cmpPlayingCardSuit["D"] := "{u+2662}"  ; (♢) white diamond suit
-cmpPlayingCardSuit["h"] := "{u+2665}"  ; (♥) black heart suit
-cmpPlayingCardSuit["H"] := "{u+2661}"  ; (♡) white heart suit
-cmpPlayingCardSuit["p"] := "{u+2660}"  ; (♠) black spade suit
-cmpPlayingCardSuit["P"] := "{u+2664}"  ; (♤) white spade suit
-
-
-; Compose :  Vulgar Fractions
-
-global cmpOne := Map()
-global cmpTwo := Map()
-global cmpThree := Map()
-global cmpFour := Map()
-global cmpFive := Map()
-global cmpSeven := Map()
-global cmpZero := Map()
-cmpOne["2"] := "{u+00bd}"    ; (½) vulgar fraction 1/2
-cmpOne["3"] := "{u+2153}"    ; (⅓) vulgar fraction 1/3
-cmpTwo["3"] := "{u+2154}"    ; (⅔) vulgar fraction 2/3
-cmpOne["4"] := "{u+00bc}"    ; (¼) vulgar fraction 1/4
-cmpThree["4"] := "{u+00be}"  ; (¾) vulgar fraction 3/4
-cmpOne["5"] := "{u+2155}"    ; (⅕) vulgar fraction 1/5
-cmpTwo["5"] := "{u+2156}"    ; (⅖) vulgar fraction 2/5
-cmpThree["5"] := "{u+2157}"  ; (⅗) vulgar fraction 3/5
-cmpFour["5"] := "{u+2158}"   ; (⅘) vulgar fraction 4/5
-cmpOne["6"] := "{u+2159}"    ; (⅙) vulgar fraction 1/6
-cmpFive["6"] := "{u+215a}"   ; (⅚) vulgar fraction 5/6
-cmpOne["7"] := "{u+2150}"    ; (⅐) vulgar fraction 1/7
-cmpOne["8"] := "{u+215b}"    ; (⅛) vulgar fraction 1/8
-cmpThree["8"] := "{u+215c}"  ; (⅜) vulgar fraction 3/8
-cmpFive["8"] := "{u+215d}"   ; (⅝) vulgar fraction 5/8
-cmpSeven["8"] := "{u+215e}"  ; (⅞) vulgar fraction 7/8
-cmpOne["9"] := "{u+2151}"    ; (⅑) vulgar fraction 1/9
-cmpOne["0"] := "{u+2152}"    ; (⅒) vulgar fraction 1/10
-cmpZero["3"] := "{u+2189}"   ; (↉) vulgar fraction 0/3

 
 
 ; Compose :  Math Symbols (m)
 
 
 ; Compose :  Math Symbols (m)


@@ -927,97 +925,134 @@ global cmpSmallD := Map()
 global cmpCapitalD := Map()
 global cmpSmallI := Map()
 global cmpCapitalI := Map()
 global cmpCapitalD := Map()
 global cmpSmallI := Map()
 global cmpCapitalI := Map()

+global cmpSmallN := Map()
+global cmpCapitalN := Map()

 global cmpCapitalO := Map()
 global cmpCapitalO := Map()

+global cmpCapitalS := Map()
+global cmpSmallT := Map()

 global cmpCapitalT := Map()
 global cmpCapitalT := Map()

-cmpArrow["e"] := "{u+00e6}"            ; (æ) letter ae
-cmpCapitalA["E"] := "{u+00c6}"         ; (Æ) letter AE
-cmpSmallD["h"] := "{u+00f0}"           ; (ð) small letter eth
-cmpCapitalD["H"] := "{u+00d0}"         ; (Ð) capital letter eth
-cmpSmallI["j"] := "{u+0133}"           ; (ij) ligature ij
-cmpCapitalI["J"] := "{u+0132}"         ; (IJ) ligature IJ
-cmpRingAbove["e"] := "{u+0153}"        ; (œ) ligature oe
-cmpCapitalO["E"] := "{u+0152}"         ; (Œ) ligature OE
-cmpSymbols["s"] := "{u+00df}"          ; (ß) small sharp s (Eszett)
-cmpPlayingCardSuit["S"] := "{u+1e9e}"  ; (ẞ) capital sharp S (capital Eszett)
-cmpTurned["h"] := "{u+00fe}"           ; (þ) small letter thorn
-cmpCapitalT["H"] := "{u+00de}"         ; (Þ) capital letter thorn
+cmpArrow["e"] := "{u+00e6}"      ; (æ) letter ae
+cmpCapitalA["E"] := "{u+00c6}"   ; (Æ) letter AE
+cmpSmallD["h"] := "{u+00f0}"     ; (ð) small letter eth
+cmpCapitalD["H"] := "{u+00d0}"   ; (Ð) capital letter eth
+cmpSmallF["s"] := "{u+017f}"     ; (ſ) small letter long s
+cmpSmallI["j"] := "{u+0133}"     ; (ij) ligature ij
+cmpCapitalI["J"] := "{u+0132}"   ; (IJ) ligature IJ
+cmpSmallN["g"] := "{u+014b}"     ; (ŋ) small letter eng(ma)
+cmpCapitalN["G"] := "{u+014a}"   ; (Ŋ) capital letter eng(ma)
+cmpRingAbove["e"] := "{u+0153}"  ; (œ) ligature oe
+cmpCapitalO["E"] := "{u+0152}"   ; (Œ) ligature OE
+cmpSymbols["s"] := "{u+00df}"    ; (ß) small sharp s (Eszett)
+cmpCapitalS["S"] := "{u+1e9e}"   ; (ẞ) capital sharp S (capital Eszett)
+cmpSmallT["h"] := "{u+00fe}"     ; (þ) small letter thorn
+cmpCapitalT["H"] := "{u+00de}"   ; (Þ) capital letter thorn

 
 
 ; Compose :  General/Math Symbols
 
 
 
 ; Compose :  General/Math Symbols
 

-global cmpSmallN := Map()
-global cmpCapitalN := Map()
-global cmpSmallP := Map()
+global cmpDigitEight := Map()

 global cmpCapitalP := Map()
 global cmpCapitalP := Map()

-global cmpSmallR := Map()
+global cmpSemicolon := Map()

 global cmpAsterisk := Map()
 global cmpExclam := Map()
 global cmpQuestion := Map()
 global cmpParenLeft := Map()
 global cmpAsterisk := Map()
 global cmpExclam := Map()
 global cmpQuestion := Map()
 global cmpParenLeft := Map()

+global cmpPlus := Map()

 global cmpPercent := Map()
 global cmpPercent := Map()

-global cmpEight := Map()

 global cmpLessThan := Map()
 global cmpGreaterThan := Map()
 global cmpLessThan := Map()
 global cmpGreaterThan := Map()

-global cmpBracketLeft := Map()
-cmpInvertedBreve["b"] := "{u+2022}"    ; (•) bullet
-cmpInvertedBreve["t"] := "{u+2023}"    ; (‣) triangular bullet
-cmpInvertedBreve["h"] := "{u+2043}"    ; (⁃) hyphen bullet
-cmpInvertedBreve["w"] := "{u+25e6}"    ; (◦) white bullet
-cmpSmallD["d"] := "{u+2020}"           ; (†) dagger
-cmpCapitalD["D"] := "{u+2021}"         ; (‡) double dagger
-cmpMathSymbols["i"] := "{u+00b5}"      ; (µ) micro sign
-cmpSmallN["o"] := "{u+2116}"           ; (№) numero sign
-cmpCapitalN["o"] := "{u+2116}"         ; (№) numero sign
-cmpRingAbove["x"] := "{u+00a4}"        ; (¤) currency sign
-cmpSmallP["p"] := "{u+00b6}"           ; (¶) pilcrow sign
-cmpCapitalP["P"] := "{u+00b6}"         ; (¶) pilcrow sign
-cmpSmallR["2"] := "{u+221a}"           ; (√) square root
-cmpSmallR["3"] := "{u+221b}"           ; (∛) cube root
-cmpSmallR["4"] := "{u+221c}"           ; (∜) fourth root
-cmpSymbols["o"] := "{u+00a7}"          ; (§) section sign
-cmpPlayingCardSuit["o"] := "{u+00a7}"  ; (§) section sign
-cmpTurned["m"] := "{u+2122}"           ; (™) trademark symbol
-cmpAcuteAccent["1"] := "{u+2032}"      ; (′) prime
-cmpAcuteAccent["2"] := "{u+2033}"      ; (″) double prime
-cmpAcuteAccent["3"] := "{u+2034}"      ; (‴) triple prime
-cmpAcuteAccent["4"] := "{u+2057}"      ; (⁗) quadruple prime
-cmpAsterisk["*"] := "{u+00d7}"         ; (×) multiplication sign
-cmpStroke["/"] := "{u+00f7}"           ; (÷) division sign
-cmpAsterisk["o"] := "{u+00b0}"         ; (°) degree sign
-cmpRingAbove["*"] := "{u+00b0}"        ; (°) degree sign
-cmpDotAbove["."] := "{u+00b7}"         ; (·) middle dot
-cmpDotAbove[" "] := "{u+00b7}"         ; (·) middle dot
-cmpDotAbove["3"] := "{u+2026}"         ; (…) horizontal ellipsis
-cmpArrow["-"] := "{u+00aa}"            ; (ª) feminine ordinal indicator (Spanish, Portuguese, Italian, Galician)
-cmpRingAbove["-"] := "{u+00ba}"        ; (º) masculine ordinal indicator (Spanish, Portuguese, Italian, Galician)
-cmpExclam["!"] := "{u+00a1}"           ; (¡) inverted exclamation mark
-cmpQuestion["?"] := "{u+00bf}"         ; (¿) inverted question mark
-cmpRingAbove["c"] := "{u+00a9}"        ; (©) copyright sign
-cmpParenLeft["c"] := "{u+00a9}"        ; (©) copyright sign
-cmpRingAbove["p"] := "{u+2117}"        ; (℗) sound recording copyright
-cmpParenLeft["p"] := "{u+2117}"        ; (℗) sound recording copyright
-cmpRingAbove["r"] := "{u+00ae}"        ; (®) registered sign
-cmpParenLeft["r"] := "{u+00ae}"        ; (®) registered sign
-cmpPlus["-"] := "{u+00b1}"             ; (±) plus-minus sign
-cmpPercent["%"] := "{u+2030}"          ; (‰) per mille sign
-cmpPercent["3"] := "{u+2030}"          ; (‰) per mille sign
-cmpPercent["4"] := "{u+2031}"          ; (‱) per ten thousand sign
-cmpEight["8"] := "{u+221e}"            ; (∞) infinity symbol
-cmpExclam["="] := "{u+2260}"           ; (≠) not equal to
-cmpDoubleAcute["/"] := "{u+2260}"      ; (≠) not equal to
-cmpStroke["="] := "{u+2260}"           ; (≠) not equal to
-cmpLessThan["="] := "{u+2264}"         ; (≤) less-than or equal to
-cmpGreaterThan["="] := "{u+2265}"      ; (≥) greater-than or equal to
-cmpLessThan["+"] := "{u+2a7d}"         ; (⩽) less-than or slanted equal to
-cmpGreaterThan["+"] := "{u+2a7e}"      ; (⩾) greater-than or slanted equal to
-cmpTilde["~"] := "{u+2248}"            ; (≈) almost equal to
-cmpBracketLeft["]"] := "{u+2610}"      ; (☐) ballot box
-cmpBracketLeft["v"] := "{u+2611}"      ; (☑) ballot box with check
-cmpBracketLeft["x"] := "{u+2612}"      ; (☒) ballot box with x
+cmpSmallD["d"] := "{u+2020}"        ; (†) dagger
+cmpCapitalD["D"] := "{u+2021}"      ; (‡) double dagger
+cmpSmallI["i"] := "{u+221e}"        ; (∞) infinity symbol
+cmpDigitEight["8"] := "{u+221e}"    ; (∞) infinity symbol
+cmpMathSymbols["i"] := "{u+00b5}"   ; (µ) micro sign
+cmpSmallN["o"] := "{u+2116}"        ; (№) numero sign
+cmpCapitalN["o"] := "{u+2116}"      ; (№) numero sign
+cmpRingAbove["x"] := "{u+00a4}"     ; (¤) currency sign
+cmpSuperscript["p"] := "{u+00b6}"   ; (¶) pilcrow sign
+cmpCapitalP["P"] := "{u+00b6}"      ; (¶) pilcrow sign
+cmpSmallR["2"] := "{u+221a}"        ; (√) square root
+cmpSmallR["3"] := "{u+221b}"        ; (∛) cube root
+cmpSmallR["4"] := "{u+221c}"        ; (∜) fourth root
+cmpSymbols["o"] := "{u+00a7}"       ; (§) section sign
+cmpCapitalS["o"] := "{u+00a7}"      ; (§) section sign
+cmpSmallT["m"] := "{u+2122}"        ; (™) trademark symbol
+cmpSemicolon["b"] := "{u+2022}"     ; (•) bullet
+cmpSemicolon[";"] := "{u+2022}"     ; (•) bullet
+cmpSemicolon["t"] := "{u+2023}"     ; (‣) triangular bullet
+cmpSemicolon[">"] := "{u+2023}"     ; (‣) triangular bullet
+cmpSemicolon["h"] := "{u+2043}"     ; (⁃) hyphen bullet
+cmpSemicolon["-"] := "{u+2043}"     ; (⁃) hyphen bullet
+cmpSemicolon["w"] := "{u+25e6}"     ; (◦) white bullet
+cmpSemicolon["o"] := "{u+25e6}"     ; (◦) white bullet
+cmpAcuteAccent["1"] := "{u+2032}"   ; (′) prime
+cmpAcuteAccent["2"] := "{u+2033}"   ; (″) double prime
+cmpAcuteAccent["3"] := "{u+2034}"   ; (‴) triple prime
+cmpAcuteAccent["4"] := "{u+2057}"   ; (⁗) quadruple prime
+cmpAsterisk["*"] := "{u+00d7}"      ; (×) multiplication sign
+cmpStroke["/"] := "{u+00f7}"        ; (÷) division sign
+cmpAsterisk["o"] := "{u+00b0}"      ; (°) degree sign
+cmpRingAbove["*"] := "{u+00b0}"     ; (°) degree sign
+cmpDotAbove["."] := "{u+00b7}"      ; (·) middle dot
+cmpDotAbove[" "] := "{u+00b7}"      ; (·) middle dot
+cmpDotAbove["3"] := "{u+2026}"      ; (…) horizontal ellipsis
+cmpArrow["-"] := "{u+00aa}"         ; (ª) feminine ordinal indicator (Spanish, Portuguese, Italian, Galician)
+cmpRingAbove["-"] := "{u+00ba}"     ; (º) masculine ordinal indicator (Spanish, Portuguese, Italian, Galician)
+cmpExclam["!"] := "{u+00a1}"        ; (¡) inverted exclamation mark
+cmpQuestion["?"] := "{u+00bf}"      ; (¿) inverted question mark
+cmpRingAbove["c"] := "{u+00a9}"     ; (©) copyright sign
+cmpParenLeft["c"] := "{u+00a9}"     ; (©) copyright sign
+cmpRingAbove["p"] := "{u+2117}"     ; (℗) sound recording copyright
+cmpParenLeft["p"] := "{u+2117}"     ; (℗) sound recording copyright
+cmpRingAbove["r"] := "{u+00ae}"     ; (®) registered sign
+cmpParenLeft["r"] := "{u+00ae}"     ; (®) registered sign
+cmpPlus["-"] := "{u+00b1}"          ; (±) plus-minus sign
+cmpMacronStroke["+"] := "{u+2213}"  ; (∓) minus-or-plus sign
+cmpPercent["%"] := "{u+2030}"       ; (‰) per mille sign
+cmpPercent["3"] := "{u+2030}"       ; (‰) per mille sign
+cmpPercent["4"] := "{u+2031}"       ; (‱) per ten thousand sign
+cmpExclam["="] := "{u+2260}"        ; (≠) not equal to
+cmpLessThan[">"] := "{u+2260}"      ; (≠) not equal to
+cmpLessThan["="] := "{u+2264}"      ; (≤) less-than or equal to
+cmpGreaterThan["="] := "{u+2265}"   ; (≥) greater-than or equal to
+cmpLessThan["+"] := "{u+2a7d}"      ; (⩽) less-than or slanted equal to
+cmpGreaterThan["+"] := "{u+2a7e}"   ; (⩾) greater-than or slanted equal to
+cmpTilde["~"] := "{u+2248}"         ; (≈) almost equal to
+
+
+; Compose :  Vulgar Fractions
+
+global cmpDigitOne := Map()
+global cmpDigitTwo := Map()
+global cmpDigitThree := Map()
+global cmpDigitFour := Map()
+global cmpDigitFive := Map()
+global cmpDigitSeven := Map()
+global cmpDigitZero := Map()
+cmpDigitOne["2"] := "{u+00bd}"    ; (½) vulgar fraction 1/2
+cmpDigitOne["3"] := "{u+2153}"    ; (⅓) vulgar fraction 1/3
+cmpDigitTwo["3"] := "{u+2154}"    ; (⅔) vulgar fraction 2/3
+cmpDigitOne["4"] := "{u+00bc}"    ; (¼) vulgar fraction 1/4
+cmpDigitThree["4"] := "{u+00be}"  ; (¾) vulgar fraction 3/4
+cmpDigitOne["5"] := "{u+2155}"    ; (⅕) vulgar fraction 1/5
+cmpDigitTwo["5"] := "{u+2156}"    ; (⅖) vulgar fraction 2/5
+cmpDigitThree["5"] := "{u+2157}"  ; (⅗) vulgar fraction 3/5
+cmpDigitFour["5"] := "{u+2158}"   ; (⅘) vulgar fraction 4/5
+cmpDigitOne["6"] := "{u+2159}"    ; (⅙) vulgar fraction 1/6
+cmpDigitFive["6"] := "{u+215a}"   ; (⅚) vulgar fraction 5/6
+cmpDigitOne["7"] := "{u+2150}"    ; (⅐) vulgar fraction 1/7
+cmpDigitOne["8"] := "{u+215b}"    ; (⅛) vulgar fraction 1/8
+cmpDigitThree["8"] := "{u+215c}"  ; (⅜) vulgar fraction 3/8
+cmpDigitFive["8"] := "{u+215d}"   ; (⅝) vulgar fraction 5/8
+cmpDigitSeven["8"] := "{u+215e}"  ; (⅞) vulgar fraction 7/8
+cmpDigitOne["9"] := "{u+2151}"    ; (⅑) vulgar fraction 1/9
+cmpDigitOne["0"] := "{u+2152}"    ; (⅒) vulgar fraction 1/10
+cmpDigitZero["3"] := "{u+2189}"   ; (↉) vulgar fraction 0/3

 
 
 ; Compose :  Quotation Marks
 
 
 
 ; Compose :  Quotation Marks
 

+global cmpBracketLeft := Map()

 global cmpBracketRight := Map()
 cmpCedillaOgonek[chr(34)] := "{u+201e}"  ; („) double low-9 quotation mark
 cmpDiaeresis[","] := "{u+201e}"          ; („) double low-9 quotation mark
 global cmpBracketRight := Map()
 cmpCedillaOgonek[chr(34)] := "{u+201e}"  ; („) double low-9 quotation mark
 cmpDiaeresis[","] := "{u+201e}"          ; („) double low-9 quotation mark


@@ -1043,27 +1078,276 @@ cmpGreaterThan["'"] := "{u+203a}"        ; (›) right-pointing single angle quo
 cmpAcuteAccent[">"] := "{u+203a}"        ; (›) right-pointing single angle quotation mark
 
 
 cmpAcuteAccent[">"] := "{u+203a}"        ; (›) right-pointing single angle quotation mark
 
 

-; Compose :  Letters with Two Accents
+; Compose :  Letters with Two Diacritical Marks

 
 

-global cmpCapitalU := Map()
+global cmpCapitalC := Map()
+global cmpSmallE := Map()
+global cmpCapitalE := Map()
+global cmpCapitalV := Map()

 cmpArrow[chr(34)] := "{u+01df}"      ; (ǟ) a with diaeresis and macron
 cmpCapitalA[chr(34)] := "{u+01de}"   ; (Ǟ) A with diaeresis and macron
 cmpArrow["."] := "{u+01e1}"          ; (ǡ) a with dot above and macron
 cmpCapitalA["."] := "{u+01e0}"       ; (Ǡ) A with dot above and macron
 cmpArrow[chr(34)] := "{u+01df}"      ; (ǟ) a with diaeresis and macron
 cmpCapitalA[chr(34)] := "{u+01de}"   ; (Ǟ) A with diaeresis and macron
 cmpArrow["."] := "{u+01e1}"          ; (ǡ) a with dot above and macron
 cmpCapitalA["."] := "{u+01e0}"       ; (Ǡ) A with dot above and macron

+cmpArrow["'"] := "{u+01fb}"          ; (ǻ) a with ring above and acute
+cmpCapitalA["'"] := "{u+01fa}"       ; (Ǻ) A with ring above and acute
+cmpCircumflex["'"] := "{u+1e09}"     ; (ḉ) c with cedilla and acute
+cmpCapitalC["'"] := "{u+1e08}"       ; (Ḉ) C with cedilla and acute
+cmpSmallE["-"] := "{u+01e3}"         ; (ǣ) ae with macron
+cmpCapitalE["-"] := "{u+01e2}"       ; (Ǣ) AE with macron
+cmpSmallE["'"] := "{u+01fd}"         ; (ǽ) ae with acute
+cmpCapitalE["'"] := "{u+01fc}"       ; (Ǽ) AE with acute
+cmpRingAbove[","] := "{u+01ed}"      ; (ǭ) o with ogonek and macron
+cmpCapitalO[","] := "{u+01ec}"       ; (Ǭ) O with ogonek and macron
+cmpRingAbove["'"] := "{u+01ff}"      ; (ǿ) o with stroke and acute
+cmpCapitalO["'"] := "{u+01fe}"       ; (Ǿ) O with stroke and acute

 cmpRingAbove[chr(34)] := "{u+022b}"  ; (ȫ) o with diaeresis and macron
 cmpCapitalO[chr(34)] := "{u+022a}"   ; (Ȫ) O with diaeresis and macron
 cmpRingAbove["~"] := "{u+022d}"      ; (ȭ) o with tilde and macron
 cmpCapitalO["~"] := "{u+022c}"       ; (Ȭ) O with tilde and macron
 cmpRingAbove["."] := "{u+0231}"      ; (ȱ) o with dot above and macron
 cmpCapitalO["."] := "{u+0230}"       ; (Ȱ) O with dot above and macron
 cmpRingAbove[chr(34)] := "{u+022b}"  ; (ȫ) o with diaeresis and macron
 cmpCapitalO[chr(34)] := "{u+022a}"   ; (Ȫ) O with diaeresis and macron
 cmpRingAbove["~"] := "{u+022d}"      ; (ȭ) o with tilde and macron
 cmpCapitalO["~"] := "{u+022c}"       ; (Ȭ) O with tilde and macron
 cmpRingAbove["."] := "{u+0231}"      ; (ȱ) o with dot above and macron
 cmpCapitalO["."] := "{u+0230}"       ; (Ȱ) O with dot above and macron

-cmpSubscript["-"] := "{u+01d6}"      ; (ǖ) u with diaeresis and macron
-cmpCapitalU["-"] := "{u+01d5}"       ; (Ǖ) U with diaeresis and macron
-cmpSubscript["'"] := "{u+01d8}"      ; (ǘ) u with diaeresis and acute
-cmpCapitalU["'"] := "{u+01d7}"       ; (Ǘ) U with diaeresis and acute
-cmpSubscript["v"] := "{u+01da}"      ; (ǚ) u with diaeresis and caron
-cmpCapitalU["v"] := "{u+01d9}"       ; (Ǚ) U with diaeresis and caron
-cmpSubscript["``"] := "{u+01dc}"     ; (ǜ) u with diaeresis and grave
-cmpCapitalU["``"] := "{u+01db}"      ; (Ǜ) U with diaeresis and grave
+cmpCaron["-"] := "{u+01d6}"          ; (ǖ) u with diaeresis and macron
+cmpCapitalV["-"] := "{u+01d5}"       ; (Ǖ) U with diaeresis and macron
+cmpCaron["'"] := "{u+01d8}"          ; (ǘ) u with diaeresis and acute
+cmpCapitalV["'"] := "{u+01d7}"       ; (Ǘ) U with diaeresis and acute
+cmpCaron["v"] := "{u+01da}"          ; (ǚ) u with diaeresis and caron
+cmpCapitalV["v"] := "{u+01d9}"       ; (Ǚ) U with diaeresis and caron
+cmpCaron["``"] := "{u+01dc}"         ; (ǜ) u with diaeresis and grave
+cmpCapitalV["``"] := "{u+01db}"      ; (Ǜ) U with diaeresis and grave
+
+
+; Compose :  Miscellaneous Symbols and Dingbats
+
+global cmpDigitSix := Map()
+
+cmpDigitOne["a"] := "{u+2600}"  ; (☀) black sun with rays
+cmpDigitOne["b"] := "{u+2601}"  ; (☁) cloud
+cmpDigitOne["c"] := "{u+2602}"  ; (☂) umbrella
+cmpDigitOne["d"] := "{u+2603}"  ; (☃) snowman
+cmpDigitOne["e"] := "{u+2604}"  ; (☄) comet
+cmpDigitOne["f"] := "{u+2605}"  ; (★) black star
+cmpDigitOne["g"] := "{u+2606}"  ; (☆) white star
+cmpDigitOne["h"] := "{u+260e}"  ; (☎) black telephone
+cmpDigitOne["i"] := "{u+260f}"  ; (☏) white telephone
+cmpDigitOne["j"] := "{u+2610}"  ; (☐) ballot box
+cmpDigitOne["k"] := "{u+2611}"  ; (☑) ballot box with check
+cmpDigitOne["l"] := "{u+2612}"  ; (☒) ballot box with x
+cmpDigitOne["m"] := "{u+2619}"  ; (☙) reversed rotated floral heart bullet
+cmpDigitOne["n"] := "{u+261a}"  ; (☚) black left-pointing index
+cmpDigitOne["o"] := "{u+261b}"  ; (☛) black right-pointing index
+cmpDigitOne["p"] := "{u+261c}"  ; (☜) white left-pointing index
+cmpDigitOne["q"] := "{u+261d}"  ; (☝) white up-pointing index
+cmpDigitOne["r"] := "{u+261e}"  ; (☞) white right-pointing index
+cmpDigitOne["s"] := "{u+261f}"  ; (☟) white down-pointing index
+cmpDigitOne["t"] := "{u+2620}"  ; (☠) skull and crossbones
+cmpDigitOne["u"] := "{u+2621}"  ; (☡) caution sign
+cmpDigitOne["v"] := "{u+2622}"  ; (☢) radioactive sign
+cmpDigitOne["w"] := "{u+2623}"  ; (☣) biohazard sign
+cmpDigitOne["x"] := "{u+2639}"  ; (☹) white frowning face
+cmpDigitOne["y"] := "{u+263a}"  ; (☺) white smiling face
+cmpDigitOne["z"] := "{u+263b}"  ; (☻) black smiling face
+
+cmpDigitTwo["a"] := "{u+263c}"  ; (☼) white sun with rays
+cmpDigitTwo["b"] := "{u+263d}"  ; (☽) first quarter moon
+cmpDigitTwo["c"] := "{u+263e}"  ; (☾) last quarter moon
+cmpDigitTwo["d"] := "{u+2640}"  ; (♀) female sign (Venus)
+cmpDigitTwo["e"] := "{u+2642}"  ; (♂) male sign (Mars)
+cmpDigitTwo["f"] := "{u+2668}"  ; (♨) hot springs
+cmpDigitTwo["g"] := "{u+2669}"  ; (♩) quarter note
+cmpDigitTwo["h"] := "{u+266a}"  ; (♪) eighth note
+cmpDigitTwo["i"] := "{u+266b}"  ; (♫) beamed eighth notes
+cmpDigitTwo["j"] := "{u+266c}"  ; (♬) beamed sixteenth notes
+cmpDigitTwo["k"] := "{u+266d}"  ; (♭) music flat sign
+cmpDigitTwo["l"] := "{u+266e}"  ; (♮) music natural sign
+cmpDigitTwo["m"] := "{u+266f}"  ; (♯) music sharp sign
+cmpDigitTwo["n"] := "{u+2672}"  ; (♲) universal recycling symbol
+cmpDigitTwo["o"] := "{u+267a}"  ; (♺) recycling symbol for generic materials
+cmpDigitTwo["p"] := "{u+267b}"  ; (♻) black universal recycling symbol
+cmpDigitTwo["q"] := "{u+267f}"  ; (♿) wheelchair symbol
+cmpDigitTwo["r"] := "{u+2690}"  ; (⚐) white flag
+cmpDigitTwo["s"] := "{u+2691}"  ; (⚑) black flag
+cmpDigitTwo["t"] := "{u+26a0}"  ; (⚠) warning sign
+cmpDigitTwo["u"] := "{u+26a1}"  ; (⚡) high voltage sign
+cmpDigitTwo["v"] := "{u+26d4}"  ; (⛔) no entry
+
+cmpDigitThree["a"] := "{u+2701}"  ; (✁) upper blade scissors
+cmpDigitThree["b"] := "{u+2702}"  ; (✂) black scissors
+cmpDigitThree["c"] := "{u+2703}"  ; (✃) lower blade scissors
+cmpDigitThree["d"] := "{u+2704}"  ; (✄) white scissors
+cmpDigitThree["e"] := "{u+2706}"  ; (✆) telephone location sign
+cmpDigitThree["f"] := "{u+2707}"  ; (✇) tape drive
+cmpDigitThree["g"] := "{u+2708}"  ; (✈) airplane
+cmpDigitThree["h"] := "{u+2709}"  ; (✉) envelope
+cmpDigitThree["i"] := "{u+270a}"  ; (✊) raised fist
+cmpDigitThree["j"] := "{u+270b}"  ; (✋) raised hand
+cmpDigitThree["k"] := "{u+270c}"  ; (✌) victory hand
+cmpDigitThree["l"] := "{u+270d}"  ; (✍) writing hand
+cmpDigitThree["m"] := "{u+270e}"  ; (✎) lower right pencil
+cmpDigitThree["n"] := "{u+270f}"  ; (✏) pencil
+cmpDigitThree["o"] := "{u+2710}"  ; (✐) upper right pencil
+cmpDigitThree["p"] := "{u+2711}"  ; (✑) white nib
+cmpDigitThree["q"] := "{u+2712}"  ; (✒) black nib
+cmpDigitThree["r"] := "{u+2713}"  ; (✓) check mark
+cmpDigitThree["s"] := "{u+2714}"  ; (✔) heavy check mark
+cmpDigitThree["t"] := "{u+2715}"  ; (✕) multiplication x
+cmpDigitThree["u"] := "{u+2716}"  ; (✖) heavy multiplication x
+cmpDigitThree["v"] := "{u+2717}"  ; (✗) ballot x
+cmpDigitThree["w"] := "{u+2718}"  ; (✘) heavy ballot x
+cmpDigitThree["x"] := "{u+2719}"  ; (✙) outlined Greek cross
+cmpDigitThree["y"] := "{u+271a}"  ; (✚) heavy Greek cross
+cmpDigitThree["z"] := "{u+271b}"  ; (✛) open centre cross
+
+cmpDigitFour["a"] := "{u+271c}"  ; (✜) heavy open centre cross
+cmpDigitFour["b"] := "{u+271d}"  ; (✝) Latin cross
+cmpDigitFour["c"] := "{u+271e}"  ; (✞) shadowed white Latin cross
+cmpDigitFour["d"] := "{u+271f}"  ; (✟) outlined Latin cross
+cmpDigitFour["e"] := "{u+2720}"  ; (✠) Maltese cross
+cmpDigitFour["f"] := "{u+2721}"  ; (✡) star of David
+cmpDigitFour["g"] := "{u+2722}"  ; (✢) four teardrop-spoked asterisk
+cmpDigitFour["h"] := "{u+2723}"  ; (✣) four balloon-spoked asterisk
+cmpDigitFour["i"] := "{u+2724}"  ; (✤) heavy four balloon-spoked asterisk
+cmpDigitFour["j"] := "{u+2725}"  ; (✥) four club-spoked asterisk
+cmpDigitFour["k"] := "{u+2726}"  ; (✦) black four-pointed star
+cmpDigitFour["l"] := "{u+2727}"  ; (✧) white four-pointed star
+cmpDigitFour["m"] := "{u+2729}"  ; (✩) stress outlined white star
+cmpDigitFour["n"] := "{u+272a}"  ; (✪) circled white star
+cmpDigitFour["o"] := "{u+272b}"  ; (✫) open centre black star
+cmpDigitFour["p"] := "{u+272c}"  ; (✬) black centre white star
+cmpDigitFour["q"] := "{u+272d}"  ; (✭) outlined black star
+cmpDigitFour["r"] := "{u+272e}"  ; (✮) heavy outlined black star
+cmpDigitFour["s"] := "{u+272f}"  ; (✯) pinwheel star
+cmpDigitFour["t"] := "{u+2730}"  ; (✰) shadowed white star
+cmpDigitFour["u"] := "{u+2731}"  ; (✱) heavy asterisk
+cmpDigitFour["v"] := "{u+2732}"  ; (✲) open centre asterisk
+cmpDigitFour["w"] := "{u+2733}"  ; (✳) eight-spoked asterisk
+cmpDigitFour["x"] := "{u+2734}"  ; (✴) eight-pointed black star
+cmpDigitFour["y"] := "{u+2735}"  ; (✵) eight-pointed pinwheel star
+cmpDigitFour["z"] := "{u+2736}"  ; (✶) six-pointed black star
+
+cmpDigitFive["a"] := "{u+2737}"  ; (✷) eight-pointed rectilinear black star
+cmpDigitFive["b"] := "{u+2738}"  ; (✸) heavy eight-pointed rectilinear black star
+cmpDigitFive["c"] := "{u+2739}"  ; (✹) twelve pointed black star
+cmpDigitFive["d"] := "{u+273a}"  ; (✺) sixteen-pointed asterisk
+cmpDigitFive["e"] := "{u+273b}"  ; (✻) teardrop-spoked asterisk
+cmpDigitFive["f"] := "{u+273c}"  ; (✼) open centre teardrop-spoked asterisk
+cmpDigitFive["g"] := "{u+273d}"  ; (✽) heavy teardrop-spoked asterisk
+cmpDigitFive["h"] := "{u+273e}"  ; (✾) six-petalled black and white florette
+cmpDigitFive["i"] := "{u+273f}"  ; (✿) black florette
+cmpDigitFive["j"] := "{u+2740}"  ; (❀) white florette
+cmpDigitFive["k"] := "{u+2741}"  ; (❁) eight-petalled outlined black florette
+cmpDigitFive["l"] := "{u+2742}"  ; (❂) circled open centre eight-pointed star
+cmpDigitFive["m"] := "{u+2743}"  ; (❃) heavy teardrop-spoked pinwheel asterisk
+cmpDigitFive["n"] := "{u+2744}"  ; (❄) snowflake
+cmpDigitFive["o"] := "{u+2745}"  ; (❅) tight trifoliate snowflake
+cmpDigitFive["p"] := "{u+2746}"  ; (❆) heavy chevron snowflake
+cmpDigitFive["q"] := "{u+2747}"  ; (❇) sparkle
+cmpDigitFive["r"] := "{u+2748}"  ; (❈) heavy sparkle
+cmpDigitFive["s"] := "{u+2749}"  ; (❉) balloon-spoked asterisk
+cmpDigitFive["t"] := "{u+274a}"  ; (❊) eight teardrop-spoked propeller asterisk
+cmpDigitFive["u"] := "{u+274b}"  ; (❋) heavy eight teardrop-spoked propeller asterisk
+cmpDigitFive["v"] := "{u+274d}"  ; (❍) shadowed white circle
+cmpDigitFive["w"] := "{u+274f}"  ; (❏) lower right drop-shadowed white square
+cmpDigitFive["x"] := "{u+2750}"  ; (❐) upper right drop-shadowed white square
+cmpDigitFive["y"] := "{u+2751}"  ; (❑) lower right shadowed white square
+cmpDigitFive["z"] := "{u+2752}"  ; (❒) upper right shadowed white square
+
+cmpDigitSix["a"] := "{u+2756}"  ; (❖) black diamond minus white x
+cmpDigitSix["b"] := "{u+2758}"  ; (❘) light vertical bar
+cmpDigitSix["c"] := "{u+2759}"  ; (❙) medium vertical bar
+cmpDigitSix["d"] := "{u+275a}"  ; (❚) heavy vertical bar
+cmpDigitSix["e"] := "{u+275b}"  ; (❛) heavy single turned comma quotation mark ornament
+cmpDigitSix["f"] := "{u+275c}"  ; (❜) heavy single comma quotation mark ornament
+cmpDigitSix["g"] := "{u+275d}"  ; (❝) heavy double turned comma quotation mark ornament
+cmpDigitSix["h"] := "{u+275e}"  ; (❞) heavy double comma quotation mark ornament
+cmpDigitSix["i"] := "{u+275f}"  ; (❟) heavy low single comma quotation mark ornament
+cmpDigitSix["j"] := "{u+2760}"  ; (❠) heavy low double comma quotation mark ornament
+cmpDigitSix["k"] := "{u+2761}"  ; (❡) curved stem paragraph sign ornament
+cmpDigitSix["l"] := "{u+2762}"  ; (❢) heavy exclamation mark ornament
+cmpDigitSix["m"] := "{u+2763}"  ; (❣) heavy heart exclamation mark ornament
+cmpDigitSix["n"] := "{u+2764}"  ; (❤) heavy black heart
+cmpDigitSix["o"] := "{u+2765}"  ; (❥) rotated heavy black heart bullet
+cmpDigitSix["p"] := "{u+2766}"  ; (❦) floral heart
+cmpDigitSix["q"] := "{u+2767}"  ; (❧) rotated floral heart bullet
+
+cmpDigitSeven["a"] := "{u+2794}"  ; (➔) heavy wide-headed rightwards arrow
+cmpDigitSeven["b"] := "{u+2798}"  ; (➘) heavy south east arrow
+cmpDigitSeven["c"] := "{u+2799}"  ; (➙) heavy rightwards arrow
+cmpDigitSeven["d"] := "{u+279a}"  ; (➚) heavy north east arrow
+cmpDigitSeven["e"] := "{u+279b}"  ; (➛) drafting point rightwards arrow
+cmpDigitSeven["f"] := "{u+279c}"  ; (➜) heavy round-tipped rightwards arrow
+cmpDigitSeven["g"] := "{u+279d}"  ; (➝) triangle-headed rightwards arrow
+cmpDigitSeven["h"] := "{u+279e}"  ; (➞) heavy triangle-headed rightwards arrow
+cmpDigitSeven["i"] := "{u+279f}"  ; (➟) dashed triangle-headed rightwards arrow
+cmpDigitSeven["j"] := "{u+27a0}"  ; (➠) heavy dashed triangle-headed rightwards arrow
+cmpDigitSeven["k"] := "{u+27a1}"  ; (➡) black rightwards arrow
+cmpDigitSeven["l"] := "{u+27a2}"  ; (➢) 3d top-lighted rightwards arrowhead
+cmpDigitSeven["m"] := "{u+27a3}"  ; (➣) 3d bottom-lighted rightwards arrowhead
+cmpDigitSeven["n"] := "{u+27a4}"  ; (➤) black rightwards arrowhead
+cmpDigitSeven["o"] := "{u+27a5}"  ; (➥) heavy black curved downwards and rightwards arrow
+cmpDigitSeven["p"] := "{u+27a6}"  ; (➦) heavy black curved upwards and rightwards arrow
+cmpDigitSeven["q"] := "{u+27a7}"  ; (➧) squat black rightwards arrow
+cmpDigitSeven["r"] := "{u+27a8}"  ; (➨) heavy concave-pointed black rightwards arrow
+cmpDigitSeven["s"] := "{u+27a9}"  ; (➩) right-shaded white rightwards arrow
+cmpDigitSeven["t"] := "{u+27aa}"  ; (➪) left-shaded white rightwards arrow
+cmpDigitSeven["u"] := "{u+27ab}"  ; (➫) back-tilted shadowed white rightwards arrow
+cmpDigitSeven["v"] := "{u+27ac}"  ; (➬) front-tilted shadowed white rightwards arrow
+cmpDigitSeven["w"] := "{u+27ad}"  ; (➭) heavy lower right-shadowed white rightwards arrow
+cmpDigitSeven["x"] := "{u+27ae}"  ; (➮) heavy upper right-shadowed white rightwards arrow
+cmpDigitSeven["y"] := "{u+27af}"  ; (➯) notched lower right-shadowed white rightwards arrow
+cmpDigitSeven["z"] := "{u+27b1}"  ; (➱) notched upper right-shadowed white rightwards arrow
+
+cmpDigitEight["a"] := "{u+27b2}"  ; (➲) circled heavy white rightwards arrow
+cmpDigitEight["b"] := "{u+27b3}"  ; (➳) white-feathered rightwards arrow
+cmpDigitEight["c"] := "{u+27b4}"  ; (➴) black-feathered south east arrow
+cmpDigitEight["d"] := "{u+27b5}"  ; (➵) black-feathered rightwards arrow
+cmpDigitEight["e"] := "{u+27b6}"  ; (➶) black-feathered north east arrow
+cmpDigitEight["f"] := "{u+27b7}"  ; (➷) heavy black-feathered south east arrow
+cmpDigitEight["g"] := "{u+27b8}"  ; (➸) heavy black-feathered rightwards arrow
+cmpDigitEight["h"] := "{u+27b9}"  ; (➹) heavy black-feathered north east arrow
+cmpDigitEight["i"] := "{u+27ba}"  ; (➺) teardrop-barbed rightwards arrow
+cmpDigitEight["j"] := "{u+27bb}"  ; (➻) heavy teardrop-shanked rightwards arrow
+cmpDigitEight["k"] := "{u+27bc}"  ; (➼) wedge-tailed rightwards arrow
+cmpDigitEight["l"] := "{u+27bd}"  ; (➽) heavy wedge-tailed rightwards arrow
+cmpDigitEight["m"] := "{u+27be}"  ; (➾) open-outlined rightwards arrow
+cmpDigitEight["n"] := "{u+27c1}"  ; (⟁) white triangle containing small white triangle
+
+
+; Compose :  Chess Pieces and Playing Card Suit Symbols (C)
+
+cmpCapitalC["k"] := "{u+2654}"  ; (♔) white chess king
+cmpCapitalC["q"] := "{u+2655}"  ; (♕) white chess queen
+cmpCapitalC["r"] := "{u+2656}"  ; (♖) white chess rook
+cmpCapitalC["b"] := "{u+2657}"  ; (♗) white chess bishop
+cmpCapitalC["n"] := "{u+2658}"  ; (♘) white chess knight
+cmpCapitalC["p"] := "{u+2659}"  ; (♙) white chess pawn
+cmpCapitalC["K"] := "{u+265a}"  ; (♚) black chess king
+cmpCapitalC["Q"] := "{u+265b}"  ; (♛) black chess queen
+cmpCapitalC["R"] := "{u+265c}"  ; (♜) black chess rook
+cmpCapitalC["B"] := "{u+265d}"  ; (♝) black chess bishop
+cmpCapitalC["N"] := "{u+265e}"  ; (♞) black chess knight
+cmpCapitalC["P"] := "{u+265f}"  ; (♟) black chess pawn
+cmpCapitalC["c"] := "{u+2667}"  ; (♧) white club suit
+cmpCapitalC["C"] := "{u+2663}"  ; (♣) black club suit
+cmpCapitalC["d"] := "{u+2662}"  ; (♢) white diamond suit
+cmpCapitalC["D"] := "{u+2666}"  ; (♦) black diamond suit
+cmpCapitalC["h"] := "{u+2661}"  ; (♡) white heart suit
+cmpCapitalC["H"] := "{u+2665}"  ; (♥) black heart suit
+cmpCapitalC["s"] := "{u+2664}"  ; (♤) white spade suit
+cmpCapitalC["S"] := "{u+2660}"  ; (♠) black spade suit
+
+
+; Compose :  Dingbat Negative Circled Digits (n)
+
+cmpSmallN["1"] := "{u+2776}"  ; (❶) dingbat negative circled digit 1
+cmpSmallN["2"] := "{u+2777}"  ; (❷) dingbat negative circled digit 2
+cmpSmallN["3"] := "{u+2778}"  ; (❸) dingbat negative circled digit 3
+cmpSmallN["4"] := "{u+2779}"  ; (❹) dingbat negative circled digit 4
+cmpSmallN["5"] := "{u+277a}"  ; (❺) dingbat negative circled digit 5
+cmpSmallN["6"] := "{u+277b}"  ; (❻) dingbat negative circled digit 6
+cmpSmallN["7"] := "{u+277c}"  ; (❼) dingbat negative circled digit 7
+cmpSmallN["8"] := "{u+277d}"  ; (❽) dingbat negative circled digit 8
+cmpSmallN["9"] := "{u+277e}"  ; (❾) dingbat negative circled digit 9
+cmpSmallN["0"] := "{u+277f}"  ; (❿) dingbat negative circled digit 10

 
 
 ; Configuration :  'Right Alt' and 'Right Alt + Shift' on US QWERTY
 
 
 ; Configuration :  'Right Alt' and 'Right Alt + Shift' on US QWERTY


@@ -1419,26 +1703,26 @@ cmpCapitalU["``"] := "{u+01db}"      ; (Ǜ) U with diaeresis and grave
     Send "{u+00db}"  ; (Û) U with circumflex
 }
 
     Send "{u+00db}"  ; (Û) U with circumflex
 }
 

->!-:: {
+>!6:: {

   if GetKeyState("CapsLock", "T")
     Send "{u+00c3}"  ; (Ã) A with tilde
   else
     Send "{u+00e3}"  ; (ã) a with tilde
 }
   if GetKeyState("CapsLock", "T")
     Send "{u+00c3}"  ; (Ã) A with tilde
   else
     Send "{u+00e3}"  ; (ã) a with tilde
 }

->!_:: {
+>!+6:: {

   if GetKeyState("CapsLock", "T")
     Send "{u+00e3}"  ; (ã) a with tilde
   else
     Send "{u+00c3}"  ; (Ã) A with tilde
 }
 
   if GetKeyState("CapsLock", "T")
     Send "{u+00e3}"  ; (ã) a with tilde
   else
     Send "{u+00c3}"  ; (Ã) A with tilde
 }
 

->!=:: {
+>!7:: {

   if GetKeyState("CapsLock", "T")
     Send "{u+00d5}"  ; (Õ) O with tilde
   else
     Send "{u+00f5}"  ; (õ) o with tilde
 }
   if GetKeyState("CapsLock", "T")
     Send "{u+00d5}"  ; (Õ) O with tilde
   else
     Send "{u+00f5}"  ; (õ) o with tilde
 }

->!+=:: {
+>!+7:: {

   if GetKeyState("CapsLock", "T")
     Send "{u+00f5}"  ; (õ) o with tilde
   else
   if GetKeyState("CapsLock", "T")
     Send "{u+00f5}"  ; (õ) o with tilde
   else


@@ -1451,10 +1735,10 @@ cmpCapitalU["``"] := "{u+01db}"      ; (Ǜ) U with diaeresis and grave
 >!1::Send "{u+00a1}"   ; (¡) inverted exclamation mark
 >!+1::Send "{u+00b9}"  ; (¹) superscript 1
 
 >!1::Send "{u+00a1}"   ; (¡) inverted exclamation mark
 >!+1::Send "{u+00b9}"  ; (¹) superscript 1
 

->!2::Send "{u+2013}"   ; (–) en dash
+>!2::Send "{u+2264}"   ; (≤) less-than or equal to

 >!+2::Send "{u+00b2}"  ; (²) superscript 2
 
 >!+2::Send "{u+00b2}"  ; (²) superscript 2
 

->!3::Send "{u+2014}"   ; (—) em dash
+>!3::Send "{u+2265}"   ; (≥) greater-than or equal to

 >!+3::Send "{u+00b3}"  ; (³) superscript 3
 
 >!4::Send "{u+00a3}"   ; (£) pound sign
 >!+3::Send "{u+00b3}"  ; (³) superscript 3
 
 >!4::Send "{u+00a3}"   ; (£) pound sign


@@ -1463,14 +1747,8 @@ cmpCapitalU["``"] := "{u+01db}"      ; (Ǜ) U with diaeresis and grave
 >!5::Send "{u+20ac}"   ; (€) euro sign
 >!+5::Send "{u+00a2}"  ; (¢) cent sign (dollar)
 
 >!5::Send "{u+20ac}"   ; (€) euro sign
 >!+5::Send "{u+00a2}"  ; (¢) cent sign (dollar)
 

->!6::Send "{u+2264}"   ; (≤) less-than or equal to
->!+6::Send "{u+2260}"  ; (≠) not equal to
-
->!7::Send "{u+2265}"   ; (≥) greater-than or equal to
->!+7::Send "{u+2248}"  ; (≈) almost equal to
-

 >!8::Send "{u+201e}"   ; („) double low-9 quotation mark
 >!8::Send "{u+201e}"   ; („) double low-9 quotation mark

->!+8::Send "{u+201a}"  ; (‚) single low-9 quotation mark
+>!+8::Send "{u+00a7}"  ; (§) section sign

 
 >!9::Send "{u+201c}"   ; (“) left double quotation mark
 >!+9::Send "{u+2018}"  ; (‘) left single quotation mark
 
 >!9::Send "{u+201c}"   ; (“) left double quotation mark
 >!+9::Send "{u+2018}"  ; (‘) left single quotation mark


@@ -1478,6 +1756,12 @@ cmpCapitalU["``"] := "{u+01db}"      ; (Ǜ) U with diaeresis and grave
 >!0::Send "{u+201d}"   ; (”) right double quotation mark
 >!+0::Send "{u+2019}"  ; (’) right single quotation mark
 
 >!0::Send "{u+201d}"   ; (”) right double quotation mark
 >!+0::Send "{u+2019}"  ; (’) right single quotation mark
 

+>!-::Send "{u+2013}"   ; (–) en dash
+>!_::Send "{u+2014}"   ; (—) em dash
+
+>!=::Send "{u+00d7}"   ; (×) multiplication sign
+>!+=::Send "{u+00f7}"  ; (÷) division sign
+

 >![::Send "{u+00ab}"   ; («) left-pointing double angle quotation mark
 >!{::Send "{u+2039}"   ; (‹) left-pointing single angle quotation mark
 
 >![::Send "{u+00ab}"   ; («) left-pointing double angle quotation mark
 >!{::Send "{u+2039}"   ; (‹) left-pointing single angle quotation mark
 


@@ -1487,11 +1771,11 @@ cmpCapitalU["``"] := "{u+01db}"      ; (Ǜ) U with diaeresis and grave
 >!;::Send "{u+00b0}"   ; (°) degree sign
 >!+;::Send "{u+00b7}"  ; (·) middle dot
 
 >!;::Send "{u+00b0}"   ; (°) degree sign
 >!+;::Send "{u+00b7}"  ; (·) middle dot
 

->!'::Send "{u+00d7}"   ; (×) multiplication sign
->!+'::Send "{u+00f7}"  ; (÷) division sign
+>!'::Send "{u+2020}"   ; (†) dagger
+>!+'::Send "{u+2021}"  ; (‡) double dagger

 
 

->!\::Send "{u+00a7}"   ; (§) section sign
->!|::Send "{u+2030}"   ; (‰) per mille sign
+>!\::Send "{u+2002}"   ;     en space
+>!|::Send "{u+2003}"   ;     em space

 
 >!/::Send "{u+00bf}"   ; (¿) inverted question mark
 >!?::Send "{u+2026}"   ; (…) horizontal ellipsis
 
 >!/::Send "{u+00bf}"   ; (¿) inverted question mark
 >!?::Send "{u+2026}"   ; (…) horizontal ellipsis


@@ -1500,22 +1784,42 @@ cmpCapitalU["``"] := "{u+01db}"      ; (Ǜ) U with diaeresis and grave
 >!+space::Send "{u+00a0}"  ; non-breaking space
 
 
 >!+space::Send "{u+00a0}"  ; non-breaking space
 
 

-; Compose Key Selector
+; Configuration :  Compose Key Selector

 
 >!`::
 
 >!`::

->!~:: {
-  ihA := InputHook("L1", dkEndKeys)
+>!sc056:: {
+  ihA := InputHook("L1", gEndKeys)

   ihA.Start()
   ihA.Wait()
 
   ihA.Start()
   ihA.Wait()
 

-  ihB := InputHook("L1", dkEndKeys)
+  ihB := InputHook("L1", gEndKeys)

   ihB.Start()
   ihB.Wait()
 
   ihB.Start()
   ihB.Wait()
 

-  if (ihA.Input == "c") {
+  if (ihA.Input == "'") {
+    if cmpAcuteAccent.Has(ihB.Input)
+      Send cmpAcuteAccent[ihB.Input]
+  }
+  else if (ihA.Input == "``") {
+    if cmpGraveAccent.Has(ihB.Input)
+      Send cmpGraveAccent[ihB.Input]
+  }
+  else if (ihA.Input == chr(34)) {
+    if cmpDiaeresis.Has(ihB.Input)
+      Send cmpDiaeresis[ihB.Input]
+  }
+  else if (ihA.Input == "c") {

     if cmpCircumflex.Has(ihB.Input)
       Send cmpCircumflex[ihB.Input]
   }
     if cmpCircumflex.Has(ihB.Input)
       Send cmpCircumflex[ihB.Input]
   }

+  else if (ihA.Input == "~") {
+    if cmpTilde.Has(ihB.Input)
+      Send cmpTilde[ihB.Input]
+  }
+  else if (ihA.Input == ",") {
+    if cmpCedillaOgonek.Has(ihB.Input)
+      Send cmpCedillaOgonek[ihB.Input]
+  }

   else if (ihA.Input == "v") {
     if cmpCaron.Has(ihB.Input)
       Send cmpCaron[ihB.Input]
   else if (ihA.Input == "v") {
     if cmpCaron.Has(ihB.Input)
       Send cmpCaron[ihB.Input]


@@ -1540,61 +1844,45 @@ cmpCapitalU["``"] := "{u+01db}"      ; (Ǜ) U with diaeresis and grave
     if cmpStroke.Has(ihB.Input)
       Send cmpStroke[ihB.Input]
   }
     if cmpStroke.Has(ihB.Input)
       Send cmpStroke[ihB.Input]
   }

-  else if (ihA.Input == ",") {
-    if cmpCedillaOgonek.Has(ihB.Input)
-      Send cmpCedillaOgonek[ihB.Input]
-  }

   else if (ihA.Input == "b") {
     if cmpBreveSpecial.Has(ihB.Input)
       Send cmpBreveSpecial[ihB.Input]
   }
   else if (ihA.Input == "b") {
     if cmpBreveSpecial.Has(ihB.Input)
       Send cmpBreveSpecial[ihB.Input]
   }

-  else if (ihA.Input == "B") {
-    if cmpInvertedBreve.Has(ihB.Input)
-      Send cmpInvertedBreve[ihB.Input]
-  }
-  else if (ihA.Input == "'") {
-    if cmpAcuteAccent.Has(ihB.Input)
-      Send cmpAcuteAccent[ihB.Input]
-  }
-  else if (ihA.Input == chr(34)) {
-    if cmpDiaeresis.Has(ihB.Input)
-      Send cmpDiaeresis[ihB.Input]
-  }

   else if (ihA.Input == "=") {
     if cmpDoubleAcute.Has(ihB.Input)
       Send cmpDoubleAcute[ihB.Input]
   }
   else if (ihA.Input == "=") {
     if cmpDoubleAcute.Has(ihB.Input)
       Send cmpDoubleAcute[ihB.Input]
   }

-  else if (ihA.Input == "``") {
-    if cmpGraveAccent.Has(ihB.Input)
-      Send cmpGraveAccent[ihB.Input]
-  }

   else if (ihA.Input == "G") {
     if cmpDoubleGrave.Has(ihB.Input)
       Send cmpDoubleGrave[ihB.Input]
   }
   else if (ihA.Input == "G") {
     if cmpDoubleGrave.Has(ihB.Input)
       Send cmpDoubleGrave[ihB.Input]
   }

-  else if (ihA.Input == "~") {
-    if cmpTilde.Has(ihB.Input)
-      Send cmpTilde[ihB.Input]
+  else if (ihA.Input == "B") {
+    if cmpInvertedBreve.Has(ihB.Input)
+      Send cmpInvertedBreve[ihB.Input]

   }
   else if (ihA.Input == "h") {
   }
   else if (ihA.Input == "h") {

-    if cmpHook.Has(ihB.Input)
-      Send cmpHook[ihB.Input]
+    if cmpSmallH.Has(ihB.Input)
+      Send cmpSmallH[ihB.Input]

   }
   }

-  else if (ihA.Input == "H") {
-    if cmpHorn.Has(ihB.Input)
-      Send cmpHorn[ihB.Input]
+  else if (ihA.Input == "f") {
+    if cmpSmallF.Has(ihB.Input)
+      Send cmpSmallF[ihB.Input]

   }
   }

-  else if (ihA.Input == "t") {
-    if cmpTurned.Has(ihB.Input)
-      Send cmpTurned[ihB.Input]
+  else if (ihA.Input == "l") {
+    if cmpSmallL.Has(ihB.Input)
+      Send cmpSmallL[ihB.Input]
+  }
+  else if (ihA.Input == "r") {
+    if cmpSmallR.Has(ihB.Input)
+      Send cmpSmallR[ihB.Input]

   }
   else if (ihA.Input == "$") {
     if cmpCurrency.Has(ihB.Input)
       Send cmpCurrency[ihB.Input]
   }
   else if (ihA.Input == "g") {
   }
   else if (ihA.Input == "$") {
     if cmpCurrency.Has(ihB.Input)
       Send cmpCurrency[ihB.Input]
   }
   else if (ihA.Input == "g") {

-    if cmpGreekAlphabet.Has(ihB.Input)
-      Send cmpGreekAlphabet[ihB.Input]
+    if cmpGreek.Has(ihB.Input)
+      Send cmpGreek[ihB.Input]

   }
   else if (ihA.Input == "p") {
     if cmpSuperscript.Has(ihB.Input)
   }
   else if (ihA.Input == "p") {
     if cmpSuperscript.Has(ihB.Input)


@@ -1616,46 +1904,10 @@ cmpCapitalU["``"] := "{u+01db}"      ; (Ǜ) U with diaeresis and grave
     if cmpArrow.Has(ihB.Input)
       Send cmpArrow[ihB.Input]
   }
     if cmpArrow.Has(ihB.Input)
       Send cmpArrow[ihB.Input]
   }

-  else if (ihA.Input == "+") {
-    if cmpPlus.Has(ihB.Input)
-      Send cmpPlus[ihB.Input]
-  }

   else if (ihA.Input == "s") {
     if cmpSymbols.Has(ihB.Input)
       Send cmpSymbols[ihB.Input]
   }
   else if (ihA.Input == "s") {
     if cmpSymbols.Has(ihB.Input)
       Send cmpSymbols[ihB.Input]
   }

-  else if (ihA.Input == "S") {
-    if cmpPlayingCardSuit.Has(ihB.Input)
-      Send cmpPlayingCardSuit[ihB.Input]
-  }
-  else if (ihA.Input == "1") {
-    if cmpOne.Has(ihB.Input)
-      Send cmpOne[ihB.Input]
-  }
-  else if (ihA.Input == "2") {
-    if cmpTwo.Has(ihB.Input)
-      Send cmpTwo[ihB.Input]
-  }
-  else if (ihA.Input == "3") {
-    if cmpThree.Has(ihB.Input)
-      Send cmpThree[ihB.Input]
-  }
-  else if (ihA.Input == "4") {
-    if cmpFour.Has(ihB.Input)
-      Send cmpFour[ihB.Input]
-  }
-  else if (ihA.Input == "5") {
-    if cmpFive.Has(ihB.Input)
-      Send cmpFive[ihB.Input]
-  }
-  else if (ihA.Input == "7") {
-    if cmpSeven.Has(ihB.Input)
-      Send cmpSeven[ihB.Input]
-  }
-  else if (ihA.Input == "0") {
-    if cmpZero.Has(ihB.Input)
-      Send cmpZero[ihB.Input]
-  }

   else if (ihA.Input == "m") {
     if cmpMathSymbols.Has(ihB.Input)
       Send cmpMathSymbols[ihB.Input]
   else if (ihA.Input == "m") {
     if cmpMathSymbols.Has(ihB.Input)
       Send cmpMathSymbols[ihB.Input]


@@ -1680,14 +1932,6 @@ cmpCapitalU["``"] := "{u+01db}"      ; (Ǜ) U with diaeresis and grave
     if cmpCapitalI.Has(ihB.Input)
       Send cmpCapitalI[ihB.Input]
   }
     if cmpCapitalI.Has(ihB.Input)
       Send cmpCapitalI[ihB.Input]
   }

-  else if (ihA.Input == "O") {
-    if cmpCapitalO.Has(ihB.Input)
-      Send cmpCapitalO[ihB.Input]
-  }
-  else if (ihA.Input == "T") {
-    if cmpCapitalT.Has(ihB.Input)
-      Send cmpCapitalT[ihB.Input]
-  }

   else if (ihA.Input == "n") {
     if cmpSmallN.Has(ihB.Input)
       Send cmpSmallN[ihB.Input]
   else if (ihA.Input == "n") {
     if cmpSmallN.Has(ihB.Input)
       Send cmpSmallN[ihB.Input]


@@ -1696,17 +1940,29 @@ cmpCapitalU["``"] := "{u+01db}"      ; (Ǜ) U with diaeresis and grave
     if cmpCapitalN.Has(ihB.Input)
       Send cmpCapitalN[ihB.Input]
   }
     if cmpCapitalN.Has(ihB.Input)
       Send cmpCapitalN[ihB.Input]
   }

-  else if (ihA.Input == "p") {
-    if cmpSmallP.Has(ihB.Input)
-      Send cmpSmallP[ihB.Input]
+  else if (ihA.Input == "O") {
+    if cmpCapitalO.Has(ihB.Input)
+      Send cmpCapitalO[ihB.Input]
+  }
+  else if (ihA.Input == "S") {
+    if cmpCapitalS.Has(ihB.Input)
+      Send cmpCapitalS[ihB.Input]
+  }
+  else if (ihA.Input == "t") {
+    if cmpSmallT.Has(ihB.Input)
+      Send cmpSmallT[ihB.Input]
+  }
+  else if (ihA.Input == "T") {
+    if cmpCapitalT.Has(ihB.Input)
+      Send cmpCapitalT[ihB.Input]

   }
   else if (ihA.Input == "P") {
     if cmpCapitalP.Has(ihB.Input)
       Send cmpCapitalP[ihB.Input]
   }
   }
   else if (ihA.Input == "P") {
     if cmpCapitalP.Has(ihB.Input)
       Send cmpCapitalP[ihB.Input]
   }

-  else if (ihA.Input == "r") {
-    if cmpSmallR.Has(ihB.Input)
-      Send cmpSmallR[ihB.Input]
+  else if (ihA.Input == ";") {
+    if cmpSemicolon.Has(ihB.Input)
+      Send cmpSemicolon[ihB.Input]

   }
   else if (ihA.Input == "*") {
     if cmpAsterisk.Has(ihB.Input)
   }
   else if (ihA.Input == "*") {
     if cmpAsterisk.Has(ihB.Input)


@@ -1724,13 +1980,17 @@ cmpCapitalU["``"] := "{u+01db}"      ; (Ǜ) U with diaeresis and grave
     if cmpParenLeft.Has(ihB.Input)
       Send cmpParenLeft[ihB.Input]
   }
     if cmpParenLeft.Has(ihB.Input)
       Send cmpParenLeft[ihB.Input]
   }

+  else if (ihA.Input == "+") {
+    if cmpPlus.Has(ihB.Input)
+      Send cmpPlus[ihB.Input]
+  }

   else if (ihA.Input == "%") {
     if cmpPercent.Has(ihB.Input)
       Send cmpPercent[ihB.Input]
   }
   else if (ihA.Input == "8") {
   else if (ihA.Input == "%") {
     if cmpPercent.Has(ihB.Input)
       Send cmpPercent[ihB.Input]
   }
   else if (ihA.Input == "8") {

-    if cmpEight.Has(ihB.Input)
-      Send cmpEight[ihB.Input]
+    if cmpDigitEight.Has(ihB.Input)
+      Send cmpDigitEight[ihB.Input]

   }
   else if (ihA.Input == "<") {
     if cmpLessThan.Has(ihB.Input)
   }
   else if (ihA.Input == "<") {
     if cmpLessThan.Has(ihB.Input)


@@ -1740,6 +2000,34 @@ cmpCapitalU["``"] := "{u+01db}"      ; (Ǜ) U with diaeresis and grave
     if cmpGreaterThan.Has(ihB.Input)
       Send cmpGreaterThan[ihB.Input]
   }
     if cmpGreaterThan.Has(ihB.Input)
       Send cmpGreaterThan[ihB.Input]
   }

+  else if (ihA.Input == "1") {
+    if cmpDigitOne.Has(ihB.Input)
+      Send cmpDigitOne[ihB.Input]
+  }
+  else if (ihA.Input == "2") {
+    if cmpDigitTwo.Has(ihB.Input)
+      Send cmpDigitTwo[ihB.Input]
+  }
+  else if (ihA.Input == "3") {
+    if cmpDigitThree.Has(ihB.Input)
+      Send cmpDigitThree[ihB.Input]
+  }
+  else if (ihA.Input == "4") {
+    if cmpDigitFour.Has(ihB.Input)
+      Send cmpDigitFour[ihB.Input]
+  }
+  else if (ihA.Input == "5") {
+    if cmpDigitFive.Has(ihB.Input)
+      Send cmpDigitFive[ihB.Input]
+  }
+  else if (ihA.Input == "7") {
+    if cmpDigitSeven.Has(ihB.Input)
+      Send cmpDigitSeven[ihB.Input]
+  }
+  else if (ihA.Input == "0") {
+    if cmpDigitZero.Has(ihB.Input)
+      Send cmpDigitZero[ihB.Input]
+  }

   else if (ihA.Input == "[") {
     if cmpBracketLeft.Has(ihB.Input)
       Send cmpBracketLeft[ihB.Input]
   else if (ihA.Input == "[") {
     if cmpBracketLeft.Has(ihB.Input)
       Send cmpBracketLeft[ihB.Input]


@@ -1748,8 +2036,24 @@ cmpCapitalU["``"] := "{u+01db}"      ; (Ǜ) U with diaeresis and grave
     if cmpBracketRight.Has(ihB.Input)
       Send cmpBracketRight[ihB.Input]
   }
     if cmpBracketRight.Has(ihB.Input)
       Send cmpBracketRight[ihB.Input]
   }

-  else if (ihA.Input == "U") {
-    if cmpCapitalU.Has(ihB.Input)
-      Send cmpCapitalU[ihB.Input]
+  else if (ihA.Input == "C") {
+    if cmpCapitalC.Has(ihB.Input)
+      Send cmpCapitalC[ihB.Input]
+  }
+  else if (ihA.Input == "e") {
+    if cmpSmallE.Has(ihB.Input)
+      Send cmpSmallE[ihB.Input]
+  }
+  else if (ihA.Input == "E") {
+    if cmpCapitalE.Has(ihB.Input)
+      Send cmpCapitalE[ihB.Input]
+  }
+  else if (ihA.Input == "V") {
+    if cmpCapitalV.Has(ihB.Input)
+      Send cmpCapitalV[ihB.Input]
+  }
+  else if (ihA.Input == "6") {
+    if cmpDigitSix.Has(ihB.Input)
+      Send cmpDigitSix[ihB.Input]

   }
 }
   }
 }